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ASSTRACT 
THIS DIAGNOSTIC PROGRAM IS DESIGNED TO BE A COMPREHENSIVE 
CHECK __OF_THE PDP11/95 AND PDP11/20 PROCESSORS. “ PROGRAM 
EXECUTES EACH a ee AR ty ALL ADORESS MODES Ai INCLUDES 
TESTS FOR TRAPS LETYPE ie tee SFaUEN: S. it 
PROGRAM DOES NOT TES} INSTRUETIONS NOT COMMON TO THE 11720 
OR A’ 5. THE PROGRAM RELOCATES THE TEST "OBE THROUGHOUT 
MEMORY O-28K. 
oy oe le 


POP ENNELY CENTRAL PROCESSOR 
OPTIONAL - KWI1-L (LINE CLOCK) 


TORA oar 
tue P ROGRAM USES ALL _OF THE FIRST 4K OF MEMORY (EXCLUDING 
THAT AREA OF MEMORY RESERVED FOR THE LOADERS). 


PRELIMINARY PROG RAMS 
NONE. HOWEVER, THE EMT AND TRAP INSTRUCTION SHOULD BE 
VERIFIED SEFORE RUNNING. 


LOADING AND BN a PROCEDURE 
LOAD PROGRAM USING ASS LOADER 


IF THE CONSOLE TTY IS A SERIAL LAC OR A VTOS FILLER 

CHARACTERS MAY BE REQUIRED. DEPOSIT INTO LOCATION 1002 

(FILLS) A 4400. 

LOAD ADRESS = 200 

PRESS START 

SET OPERATING SWITCHES | ; Soe koe 

PASS COUNT IS PRINTED AFTER EACH PASS (SEE SEC 6.4) 

"D20KC DONE” IS PRINTED WHEN DONE (SEE SEC 7.1) 

SWITCH SETTINGS 

SW1S” HALT ON ERROR... THIS SWITCH WHEN SET WILL SALT. THE 

PROCESSOR WHEN’ AN N ERROR IS DETECTED. | THE PC+2 AND THE 

CURRENT STATUS AT THE TIME OF THE ERROR 1S STORED ON 
TH THIS SWI SET BEFORE AN ERROR 


(R6). IF TCH IS ! 
IS peTECTED THE go nges HALTS 98S DESCR RISED ABOVE. HE 
M MAY SE HALTED AFTER THE ERROR TYPEQUT OCCURS 
BY SETTING SW1S AFTER THE TYPEOQUT SEGINS. 


SW14 LOOP SUBTEST... THIS SWITCH WHEN SET LOOPS THE 
CURRENT SUBTEST RUNNING REGARDLESS OF ERROR. 


SW13 {NATEIT ERROR PRINTOUT - THIS SWITCH WHEN SET INHISITS 
THE ERROR PRINTOUT. 


SW12 INHIBIT RELOCATION... THIS SWITCH WHEN SET CAUSES THE 
PROGRAM TO BE CXECUTED ONLY THE FIRST YK OF MEMORY. 
THIS SWITCH CANNOT SE SET WHEN THE PROGRAM IS RUNNING. 
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Swill INMIGIT SUBTEST ITERATION... THIS. SWITCH MEN. SET 
INHIBITS SUBTEST REITERATION. NORMALLY EACH SUBTEST 
1S EXECUTED & TIM 


ES BEFORE THE NEXT SUBTEST IS sant’ 


SETTING SW11 CAUSES EACH TEST TO BE EXECUTED ONCE 
BEFORE STARTING THE NEXT SUBTEST. 


Swi RING SELL ON ERROR... THIS SWITCH WHEN SET WILL RING 
THE BELL WHEN AN ERROR IS DETECTED. 


SW?  INHISIT ALL SUT ERROR TYPEOUTS...THIS ani WHEN 
RESET (0) INHIBITS THE END OF PASS TYPEOUT (ICNT=XXXxX) 
AND THE END OF PROGRAM TYPEOUT (DZGKC DONE) 


ER! s- ) 

IF AN ERROR IS D 

HANDLING ROUTINE 

py PC AND THE PF 
LSO (IF REQUI 

AEP ScateD FROM). 


ETECTED THE PROGRAM WILL TRAP TO THE ERROR 
ERROR). IF ENABLED THIS ROUTINE WILL SYTE 
CESSER STATUS AT THE TIME OF THE ERROR. 

D) THE ORIGINAL PC (WHERE THE PC WAS 


e 


ERROR PRINTOUT FORMAT 
ICNTSAARA PC=BEBES PSW=DDD0D 


OR 
ICNT=ARAA PC=BBBBBB PSW=DDDODD PC RELOCATED FROM CCCCCC 


WHERE: AAAR=PASS COUNT 
_ BBB8BB=PC AT THE TIME OF THE ERR 
COCCCC=PC OF THE ORIGINAL aoe RELOCATED 
DDDDOD=PSW AT THE TIME OF THE ERROR. 


4 


PARITY ERROR DECTECTION 

IF A PARITY ERROR IS DETECTED THE PROGRAM WILL TYPE A 
MESSAGE"PA RITY ERROR" AND SCAN MEMORY FOR THE PARITY ERROR. 
WHEN THE FAILING ADDRESS IS LOCATED THE PROGRAM WILL HALT 
WITH THE VALUE OF THE ADDRESS+2 IN RO. 


ERROR LOOPING 

THE aaTFS: PETECTING THE mene MAY BE LOOPED INDEFINITELY 
BY SETTING SW SETTING SW13 WILL INHIBIT THE TYPEQUT AND 
ALLOW SCOPING THE FAULTY SIGNAL(S). 


renenreley ERRORS 

THE PROGRAM MAY ON OCCASSION DETECT A MEMORY ERROR THE 
RESUL OF WHICH WERE NOT PREDICTABLE IN WHICH CASE THE 
PROGRAM MAY SEHAVE UNPREDICTABLY. WHEN THIS HAPPENS THE 
USER MUST RETRACE Mag PROGRAM STEPS TO RESOLVE WHERE THE 
ERROR OCCURRED. THE FOLLOWING ITEMS SHOULD BE CONSIDERED 
AND MAY BE OF USE WHEN ORETRACENG RA FAILURE OF THIS NATURE. 


1. HALT THE PROGRAM (IF NECESSARY) 
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= “ ENARESE BELL (1008) CO NT RI INS THE UNREL LATED VALUE OF 
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3. EXAMINE FACTOR 
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ADDRESS FACTOR (1004) CONTAINS THE RELOCATION FACTOR. 


4. EXAMINE ALL LOCATIONS STARTING WITH THE ADDRESS 
SPECIFIED IN RI/RIICIF PSW BITIL —u ag tt THEIR 


WITH THE CON Tey i OF as Shetin PON ING 
60) 0 ae: ore (SPECIFIED IN Looe) HOWN 1 


LISTING. EXAMINE AND COMPARE UNTIL E THER” A_ DIFFERENC 
Been INSTRUCTION (I.£., THE ERROR) OR THE NEXT “SCOPE” I 


THE Pore TRAPS ah HALTS AT A_TRAP/INTERRUPT VECTOR+2 
OTE: THE POP-11/4S WILL DISPLAY THE ADDRESS OF THE HALT+e2 
E., A FALSE TRAP TO 4 WILL DISPLAY 10). 

1A. EXAMINE THE STACK (RS) 


THE TOP _WORD ON THE STACK CONTAINS THE PC AT_THE TIME OF 
THE TRAP. IF THE PC IS GREATER THAN 20000, THEN 


2A. EXAMINE LOCATION 1002 (FACTOR) 


THIS LOCATION CONTAINS THE PROGRAM RELOCATION FACTOR 
WHICH SUBTRACTED FROM THE PC GIVES THE PC OF THE 
ORIGINAL CODE. 


t 
I. 


SUBROUTINE ABSTRACTS 


SCOPEA 
if SCOPER ROUTINE 1s ENTERED BY THE SCOPE (ENT) INSTRUCTION 
EXECUTED AT THE START OF EACH SUBTEST. THE ROUTINE 
HONT TORS SW14, SW11 AND SW 8 AND TAKES APPROPRIATE ACTION. 

ALSO, THIS ROUTINE STORES IN RI/RI1 THE FIRST ADDRESS OF THE 
SUBTEST BEING ENTERED. 


ERROR 

THE ERROR ROUTINE IS ENTERED BY THE HLT (TRAP) INSTRUCTION 
AND IS EXECUTED WHEN A PREDICTABLE ERROR IS DETECTED. THIS 
ROUTINE MONITORS SW1S, SW13, AND SW10. 


RELOC : 
THE -RELOG ROUTINE IS ENTERED. BY 8 MOV RELOC, PC 
INSTRUCTION. THIS ROUTINE RELOCATES THE PROGRAM CODE 
THROUGHOUT MEMORY *JUMPS’ TO THE RELOCATED CODE AFTER 
HAS MOVED SUCCESSFULLY THE CANNOT SE 
RELOCATED (BECUAS INSUFFICIENT MEMORY) THE ROU 
MPS’ SECTION OF UNRELOCATED PROGRAM CODE 
THE CODE MOVE 1k 5). = 


D0 IS LESS THAN (4000) 2 T 
AND END OF EACH SECTION OF CODE TO BE MOVED ARE A SECTION OF 
CODE mi ESTABLISHES THE FIRST BOONES? QF THE CODE 10 BE 
MOVED, SETS A SCOPE POINTER (R1/R11) AND, ALSO A SECTION 
WHICH’ ESTABL TSHES THE LAST ADDRESS AND ‘JUMPS* TQ THE 
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230 RELOCATION | (RELOC) ROUTINE. ExH SECTION OF COOE IS 
231 }: IDENTIFIED AS SHOWN BELO 
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;OCOCCOCCOOCOOFIRST ADDRESS TO BE RELOCATEDCOOCOCSCO 


CODE TO BE MOVED AND EXECUTED 
;O000000000000LAST ADDRESS OF CODE TO SE RELOCATED cogocdc0 








THE RELOC ROUTINE DOES NOT RELOCATE PROGRAM CODE INTO THE 
LAST 1000(8) BYTES OF MEMORY, THUS PRESERVING THE LOADERS. 





END 

THIS ROUTINE IS ENTERED AT THE COMPLETION OF EACH PASS IT 
SETS UP_ {LOADS at * uae STATUS) FOR THE NEXT PASS; AND 
PRINTS THE PASS C 


ICNT=XXXX 
MISCELLANEOUS 


EXECUTION TIME 

THE EXECUTION TIME IS _ HIGHLY Mp (DEPENDENT ON 
one TYPE OF MEMORY, AND AMOUNT OF MEMORY). HOWEVER 
WHEN THE’ PROGRAM IS RUNNING SUCCESSFULLY THERE IS A 
NOTICEABLE ’*FLICKER’ yee IN_THE CONSOLE went PATTERN 
THE *FLICKER’® WILL DIM WHEN ’°T’ BIT TRAP PASSES (EVERY ODD 
aa ARE RUNNING, THE PROGRAM SHOULD SE RUN FOR A MINIMUM 














2 PASSES ICNT=e 11/05 OR 11/20 
SOME TYPICAL TIMES FOLLOW: 





PROGRAM pescnge ra 
THE PROGRAM DIVIDED. INTO FOUR SECTIONS OF POSITION 
INDEPENDENT  RELOCATABLE TEST CODE. EACH SECTION IS 

APPROXIMATELY 1K WORDS LONG. (EXCEPT SECTION A). 


SECTION O THIS SECTION TEST ¥ th UNARY INSTRUCTION SET 
EXECUTING EACH UNARY INSTRUCTION IN EACH ADDRESS 
OE 35 * onpeoaie UNARY INSTRUCTIONS USING ADDRESS 








SECTION 1 THIS SECTION TESTS THE UNARY INSTRUCTIONS USING 
ADDRESS MODE 7 AND BINARYS IN ALL ADDRESS MODES 
(EXCLUDING BINARY BYTE OPS USING ADDRESS MODE 7). 





SECTION 2 THIS SECTION TEST BINARY BYTE OPS USING ADDRESS 
MODE 7, JMP, JSR AND PROGRAM TRAP (IOT, TRAP AND 
EMT) INSTRUCTIONS. 


SECTION A FOLLOWING SECTION 2 IS A ROUTINE TO_ ASCERTAIN 
WHICH CP THE we et AS RUNNING ON. THE RESULTS 

ARE USED BY THE FOLLOWING CODE CHECK THE 
— INSTRUCTIONS / FEATURES OF THE 11/40 AND 
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SECTION 3 THIS SECTION CHECKS THAT EACH SIT _ IN 


THE 
PROCESSOR STATUS WORD (PSW) CAN BE SET CLEARED, 


a a nn ne RT 


ee 
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RESERVED INSTRUCTION, AND ODD ADDRESS TRAPS. 


FOLLOWING SECTION 3 ARE TWO ROUTINES TO CHECK THE TELETYPE 
PRINTER LOGIC AND A ROUTINE TO START THE KWi1-L LINE CLOCK. 
IF us. KW11-L IS AVAILABLE THE PRIORITY ARBITRATION LOGIC IS 


AFTER EACH INDIVIDUAL SECTION HAS BEEN EXECUTED THE “RELOC™ 
aU tes RELOCATE THE SECTION THROUGHOUT ALL MEMORY UP 


ALL MEMORY THE "RELOC" ROUTINE WILL RETURN THE PROGRAM TO 
THE NEXT UNRELOCATED SECTION. 


RELOCATION AND EXECUTION OF ALL SECTIONS THROUGHOUT ALL 
MEMORY CONSTITUTES A SINGLE PASS. 


UPON COMPLETION OF A PASS OF THE PROGRAM THE PROGRAM 
RESTARTS USING A_NEW oat Rhee? STATUS DEPENDING ON THE TYPE 
OF PROCESSOR AND THE PASS COUN 


STACK POINTER 

THE STACK yeas IS SET AT SOO. 
NOTE: IF_ THE GRAM IS RUNNING IN EITHER USER OR 
SUPERVISOR MODE Nor APPLICABLE F 11/ % *. 11/05) THE 
USER/SUPERVISOR STACK pornTes IS SET TO SOO AND THE KERNEL 
STACK POINTER IS SET TO 600. THE KERNEL STACK POINTER IS 
USED ONLY FOR THE SCOPE, Tur TTY, AND KWI1-L (IF AVAILABLE 
TRAP/INTERUPT ROUTINES. : 


" FAILURE 

POWER FAIL SERVICE ROUTINE IS INCORPORATED IN THE TEST. 
HEN USING THIS PROGRAM THE POWER SHOULD BE TURNED OFF WHEN 
i De UE Gert ft TH + Ha a FAIL LOGIC. WHEN THE POWER FAILS 


POWER FAILED 
AND RESTART THE PROGRAM AT THE BEGINNING. (START? 
USER rae RELOCATION LIMITS 


THE nari a REQUEST A LOWER AND UPPER LIMIT FOR 
— OCA TION, THE LIMITS MUST BE BETWEEN 20000 AND 157776. 
THE PROGRAM WILL EXECUTE IN THE LOWER 4K (0-17776) AND THE 


LIMITS SPECIFIED. 
THE STARTING ADDRESS IS 204. 
TO RETAIN PREVIOUSLY SPECIFIED LIMITS START AT 210. 
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-NLIST SEQ,MD,MC 
LIST ME 


888 
TITLE FRONT END 
CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS 


ee ee ASSIGNMENTS 


000000 
000001 Rl=%1 
000002 Re=%e 
000903 R3=%3 
JOO904 R4=%4 
000005 RS=%S 
O06 SP=%6 
000007 PC=%7 
090000 R10=%0 
000901 R11l=%1 
002 Rle=%e 
000003 R13=%3 
000004 R14=%4 
000005 R15=45 
;STATUS REGISTER (PSW) BIT ASSIGNMENTS 
000001 C=1 ;C BIT 
000002 Vzz ;V BIT 
000004 = 32 BIT 
000010 =10 3N_BIT 
000020 _ T=20 s°T" Bir 
000340 PRTY7=340 ;PRIORITY LEVEL 7 
000300 PRTY6=300 ;PRIORITY LEVEL 6 
000200 PRTY4=200 ;PRIORITY LEVEL 4 
; VECTOR ADDRESSES 
009004 ERRVEC=4 ;ADDRESS OF ERROR VECTOR 
000010 RESVEC=10 ADDRESS OF RESE ee INST. TRAP VECTOR 
900014 TBITVEC=14 ADDRESS OF °T’ BIT TRAP VECTOR 
000014 TRIVEC=14 ADDRESS OF *TRACE’ TRAP VECTOR 
000014 BPTVEC=14 ADDRESS OF hn lh TRAP VECTOR 
000020 IOTVEC=20 ;ADDRESS OF IOT TRAP V 
000024 PFVEC=24 _ sADDRESS OF POWER FAIL TRAP VECTOR 
000030 EC=30 3D RESS OF EMT VECTOR 
000034 TRAPVEC=34 ;ADDRESS OF TRAP VECTOR 
G00064 TPVEC=64 ;ADDRESS OF TTY PRINTER INTERRUPT VECTOR 
000100 LKVEC=100 oe SADDRESS KW11-L LINE CLOCK INT. VECTOR 
000240 PIRVEC=240 ;ADDRESS OF PIRQ VECTOR 
000244 FPEVEC=244 ADDRESS OF FLOATING POINT INT. VECTOR 
000250 MMVEC=250 _ ADDRESS OF MEM MGMT ERROR TRAP VECTOR 
sREGISTER ADDRESSES 
177776 PSW= 177776 ;ADDRESS OF STATUS REGISTER 
177774 SLR= eee "ADDRESS OF STACK LIMI 
177772 PIRQ= = 17777e s ADDRESS OF PROGRAM INTERRUPT REQUEST 
177779 UBREAK= 177770 ;ADDRESS OF MICRO BREAK REGISTER 


177546 LKS= 177546 ADDRESS OF KWL1-L STATUS REG. 






















FRONT END MACYLI 27(732) 21-APR-76 13:33 PAGE 12 
ZOKCF.P1l 


177569 TKS= 177560 3 re ee e KEYBOARD CSR 





SWR= 177570 
177570 DISPLAY=177570 ; ADDR ESS OF CONSOL DISPLAY REGISTER 
177514 LPS= -- 177514 ;ADDRESS OF LINE PRINTER STATUS REG 
177516 LPB= 177518 ;ADDRESS OF LINE PRINTER DATA OUFFER 


;INITIAL_STACK POINTER SETTING 
900500 STKPTR= S00 ;PROGRAM STACK PTR 
000609 KPTR=600 KERNEL STACK PTR (USED BY KERNEL WHEN 


;PROGRAM IS RUNNING IN OTHER THAN KERNEL 
:MODE (NOT APPLICABLE TO 11/05, 11/20) 


;MISCELLANEOUS BIT ASSIGNMENTS 
81T15=100000 


100000 

040000 B1T14=40900 
029000 BIT13=20000 
000400 BIT8=400 
000100 BIT6=100 


; INSTRUCTION EQUATES 
104400 HLT=TRAP ;HLT IS A TRAP i 5° THE ERROR ROUTINE 
104900 _  SCOPE=EMT :SCOPE IS AN EMT T 


oo0046 46 
oo0046 o1sc44 LOGICAL 
o000s2 252 
poo0s2 o40000 BITIY 
000209 2200 
po0200 012707 ooe0es MOV #START,PC :GO TO START OF TEST 
o00204 012707 oo2160 MOV #STARTL,PC :GO GET LOWER/UPPER RELOCATION BOUNDARY 
000210 012707 of2224 MOV #START3,PC :START WITH LAST TYPED BOUNDARY LIMITS 
:ROUTINE TO SAVE REGISTERS ON THE STACK 
‘CALLED BY SAVE ne CRO OR JSR  PC,$SAVR 
000214 012667 oOcdl16 $SAYR: MOV ;SAVE RETURN PC 
000220 619546 MOV et 
N0de22 c1o44e MOY ma (8p) 









MO1l 
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FRONT END 
DZOKCF.P11 
p00224 010346 MOV = _%3,- 


( » RETURN 
0226 oodo00 iS: 0 CONTAINS RETURN ADDRESS 


RTI ISBT REAL URSA", edie STH 
SAVE RETURN PC 


o- 
-~ DO 
wr" 
=a 


o0024C Ole667 O00016 


00244 912600 (epy4'xG 
000e46 912601 Mov = (SP)4! xi 
o00250 O1c602 MOV (SP) +3 x2 
S2 Ole603 MoV = (SP) 4/%3 
00254 Ol26c4 MOV (SP) +5.%4 
000256 012605 MOV (SP) +3 x5 
000260 012707 MOV (PC) +; PC ; RETURN 
O262 000000 1S: 0 ; :CONTAINS RETURN ADDRESS 


oocbi0—C. =610 
—— FAIL SUBROUTINE 
00061G 012727 000620 O00024 FPDWN MOV #PUP , J#PFVEC 
000616 000000 HALT 


“ee UP SUBROUTINE 


000620 012737 000610 o00024 PUP MOV #PDWN,d#PFVEC ;RESTORE POWER FAIL TRAP TO POWER 
sDOWN ROUT ,™ ag E 
OC 3626 01270 cO00600 MOV #KPTR, SP :SET STACK 
OCI63e . 005027 CLR (PC )+ 
090634 000000 1$: -WORD 0 ;KILL TIME 
000636 005267 177772 es: INC 1$ beg 
O00S4e 001375 BNE es . 
000644 004767 000362 JSR PC, .PRINT ;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 
000650 Q00656 PFAIL 


o006S2 000137 Oc02065 JMP daSTART ;RESTART TEST 


000856 O05015 O47520 O42S52e7 PFAIL: .ASCIZ <15><le>*POWER FAILED’<15><1l2> 
000664 Oe0lee O40506 046111 
000672 O4e105 O05015 000 


900740 =740 
;NOTE: THIS CODE USED ony BY THE XOR TESTER. 
:TO U on CODE PURGE 776 (BR .-2) 

opora ee op00c2 o00006 FORXO of = RTI, QHERRVEC+E ioEt TIME OUT TRAP TO RETURN 

000750 005737 177060 TST 34177060 A TIME OUT OCCURS THEN WHEN NEXT 
Tistale on IS EXECUTED °C’ WILL BE SET 
: AND IF NO TIME ‘Ue rh WILL - CLEARED 

000754 103401 BCS 1$ ;BRANCH IF °C* SET (TIMED OUT) 

000756 011601 MOV (SP) Ri ADDRESS OF NEXT syetEs! TO Rl 

000760 005037 CO0006 1$: CLR DHERRVECHE RESTORE TIME OUT TRAP 

000764 010116 MOV R1, (SP) :GET RETURN ADDRESS BACK TO SUBTESTS 









009770 000002 RTI 
000776 2776 


;RETURN EITHER TO LAST OR NEXT SUBTEST 















FRONT END 
DZOKCF.P11 


090776 


019 
0100. 


001904 
001006 
001010 


00101e 
001014 


001016 


GITUTU b= b-+0-- 


ONddOXNOOoR2000 


Fike ZSTUH 


- 
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000000 
001000 
000000 
000000 
090006 
000000 
000000 


000000 
900751 


000240 


000746 


022737 


004000 
004000 
040000 


001006 
001004 
000400 
177570 


004000 


000049 


010090 
001010 


001004 


001230 
001912 


002140 
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000062 


177776 
177570 


001006 
177570 


177770 
177570 


177766 


177570 


TICKS: 
ICNT: 
SFILLS: 


RELR 
FRSTAD: 


3° 
. WORD 


- WORD 


FRSTMEM: . WORD 
FORXOR 
;SCOPE (EMT) SERVICE ROU 


UTINE 
THIS ROUTINE ALLOWS THE SUBTEST TO BE CONTINUOUSLY LOOPED, ITERATED 
: (OR NOT Sal BEFORE BEGINNING NEXT SUBTEST 


&copEA: N 


es: 
SCOPEB: 


SCOPEF: 
SCOPEE: 


«ROUTINE TO 


RELOC 


10$: 


- WORD 
=1000 


0 


0 


FACTOR: 0 NTA ION 
Tr tenes # IN FACTOR FROM PC 10 cer PC OF ORIGINAL CODE 


0 
0 


—. ,e(SP) 
#4000. d#PSW 


#0008, J#SWR 
core 


#RELRI 
SHARC JHRELRI 


a¥SWR 


AKSWR, J#UBREAK 


#4000, 2#SWR 
SCOPEE 


SCOPEB __ 
#40, SCOPED 
(SP) RI 
CoPEB 


RELOCATE PROGRAM CODE 
#10000, d#SWR 


1 
Re, JHRETPC 
JHE RSTMEM, Re 
R2,R4 

RY, JALSTMEN 
(RO)+, (R2)+ 
RO,R3 

1$ 


NO1. 


;CONTAINS CLOCK TICK COUNT 


3 
Q#FRSTAD,RO . 
RO,RS 







; CONTA PASS _C 
conta Ne FILLS SOUNT IN OOD BYTE 
D FILLER CHARACTER IN EVEN BYTE 
TION FACTOR 








I - RELOCATED hs (THE Rl OF THE 
SORIGING L CODE_MOV 

CONTAINS FIRST ADRS oF CODE TO BE MOVED 
CONTAINS LOWER BEL DEAT TSD BOUNDARY ADDRESS 
BRANCH TO XOR TESTER COD 










;WAS REGISTER SET BIT SET ON TRAP 
BRANCH IF NOT 


RETAIN REGISTER SET 
:CHECK BIT 14 (CONTINUOUS LOOP) 


;LOAD RETURN ADDRESS 


-RELR1 CONTAINS UNRELOCATED R1 
;LOAD PDP11/4S MICRO BREAK REG? 


;LOAD MICRO BREAK REG WITH SRO-7 
RETURN TO SUBTEST 

; SUBTEST ee aa nee 
;BRANCH IF NO ITERATION DESIRED? 

; DECREMENT SUBTEST ITERATION COUNT 
:CONTAINS SUBTEST ITERATION COUNT 


;RESET ITERATION COUNT 
GET ADDRESS OF NEXT TEST 








;CHECK IF RELOCATION DESIRED (BIT12) 
BRANCH IF NO RELOCATION DESIRED 
GET FIRST ADDRESS OF CODE TO BE MOVED 


: SAV 

sGET LAST aos OF CODE TO BE MOVED 
4 CO TO RELOCATE 

iS VE _LAST ADDRESS QF CODE TO BE MOVED 

FIRST RELOCATION IS TO 20000 


eee RST ODER PC_ TO NEXT SECTION OF CODE 
sR4 CONTAINS AST MEMORY ADDRESS 
t CHECK IF SUFFICIENT MEMORY REMAINS 


;RELOCATE PROGRAM CODE 
:CHECK IF DONE 











a 
‘oa: 
o- 
oe 


tw 
MOn £ty 


ono » 
Stet stat et ate: 
(erfipe--0-<9-< 


0 + 0-0-0 bp +9 
Cuterrerrraeeatesged 
wit? 

or 


BORE 
Hd 


oo 
£o 


co 


2 Ooo 


~~ 


the wo 


fUue-e-- be 


OnNdodo goog Oo 
moononngo Bow © 4 
o-<8 + 6-08 0-0-9) -b-< 


my) 
aes oo 


SBS8888 


we ee ae beabacbeabtadeabeabeabeadtadeadtabeadt 
4 FESS 
MoLoOo 


RONG a eb att 


OooVo000 3000 
etetetatatststaistsys) 





£ 
Cc, 
“ 
e- 


= os me 


J0Ueo7 
008890 


1 e7(732) 


pooo01 
p00002 


177584 


pooo02 


~~ Se 


176660 
001662 
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i CHEC K Me ws CODE WAS RELOCATED 


TERROR! «Coe NCT RELOCATED PROPERLY 
CHECK IF FINISHED CHECKING 


30 Ten Yo E RELOCATED C0d cove 
SEENTAINS- PC OF NEXT SEVTION OF CODE 


2 mae ASCII MESSAGE. Rae, mal TERMINATE WITH A O BYTE. 
ots (SP) ON THE STACK 


Fass 


eet 
:ADJUST RETURN PC 
;PUSH CHAR ON THE STACK 


1g IF NOT TERMINATOR 
ra OFF THE STACK 


Ee was 


Gifu 
ee ef 


; A LINE FEED 
cet & OF FILLERS ree cos nal 


S COUNT 
38 ORE FTL ERS NEEDED 
;TYPE FILLER CHARACTER 


ee FOR OUTPUT DEVICE 
ME ! REA Y 


NULL=0 
ROUTINE TO PLACE ASCII VALUE OF AN ADDRESS IN TO ADDRESS MESSAGE 
ots ;G0_ SAVE “EGISTERS ON THE STACK 
SADDRESS wnERE ASCIT VALUES ARE STORED 
WORKING § INDEX REGISTER 


: SAV 
:FIRST DIGIT TO R3 


‘a ! 
:PRINT FIRST DIGIT 


RA OEGAT INTO MESSAGE 
REE Brett COUNT 


#3, R1 
DESTAB(), (4)+ 








PRONT END 
DIQKCF PL) 


~ 991404 
031410 


~ 


- 


stetetatatsts: 


[ole leis 


001532 


O~I~INI 


ONoYNoOOOoB0OA0000 
COMMOOOWommuiiw 
Hest eobret est ca tte st fe 


Tue o-- eo 


01630 
Oié3e 
3 


SSSBSBSSSES88SSS8 





MACY 11 


0476? 
000207 


o02082 





27.732) 





176630 


177570 


C20000 


~ gooone 


17SS4e 


aa 
177726 
ee 
177502 
177474 
177700 


177560 
177456 


177654: 


001004 
001094 
177526 
177424 


177416 


176416 


- 002000 
. 197374 
? 


177570 
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JSR 
RTS 


C02 


PC, SRESTR- 
pf 


Fes iene REGISTERS FROM STACK 


BBRROR SERVICE “Dash BY TRAP ie LPS RUN 


177570 


O0021é 
000206 


JER 
ERRPCO 


10S: 


177570 18: 


2s: 


DIGIT TASLE 


me ee ee ee ee err 


#20000, 28SWR - 
lies gs 
2(SP), (PCi+ 


.SFORMO 
115+2, PASSES 
PRINT 
118,R2 
(RE) 


6. Frort 
PC; PRINT 


PC, PRINT 
PC, .PRINT 


123 
-c. 8 Sar 


PC’ PRINT 
1185 R2 
SEFACTOR 
SRFACTOR R2 
Pe, S©ORMD 
pC’ ERINT 
PC, .PRINT 
PC, SRESTR 
82500, daSwR 
PC, PRINT 
aaSwR 
+4 


~] 
Grist PAsses+2 





JERROR PC_IS THE TOP WORD 


;0N_TH 
PRINT OUT DESIRED? 
BRANCH IF NO PRINTOUT 


SAVE PC 

: CONTAINS SAVED PC 

GET STATUS_ON TRAP 

; CONTAINS a (PSW) AT TIME OF TRAP 
:60 = REGISTERS ON THE STACK 


3G 

‘LOAD ASCII VALUES 

;PRINT MESSAGE BEGINING AT FOLLOWING RORS 
;GET PC OF ERROR he 

s DECRENENT PC TO H 

G0 TO FORMAT ROU tt Ne 

;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 
;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 
;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 
;GET STAUS ar TIME OF ERROR 

:G0 TO FORMAT ROUT 

:PRINT MESSAGE BEGINING AT FOLLOWING ADRS 


;GET PC OF ERROR 


;FORM PC OF ORIGINAL CODE 
:G0 TO FORMAT ROUTINE 
;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 


;PRINT MESSAGE SEGINING AT FOLLOWING ADRS 


sR TORE REGISTERS FROM STACK 
RING BELL CN ERROR 


Sonat MESSAGE BEGINING AT FOLLONING ADRS 
;HALT AFTER PRINT OUT 








FRONT_END 
ZOKCF PLL 


cura 
rot 


percents ear irinin 
te roc: 


Srdete> 
o~ £~ 


" 


EA GS tt 
~~ 
ioe 


sBBEBBSSSSSEss8E88 


SEs 


= | 
£ 
IL 


001747 


QNOK982V20WN0 
BSBG88888 


BR 
BERS SATEEN 


002019 





030469 
031462 


000205 
O42700 
15 


aie 


oco00e 
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020060 


047103 


177560 


177562 
909208 
000177 


000134 


177565 
000015 
177172 


177770 


B1-APR-76 13:33 PAGE 

DIGTAS: 
67 

DIGITS: . 


PASCNT: . 
PASSES: . 


ERRPC: 


SraTUS: é 


ERRFCO 


SCRLF: 
BELL: 


REcD: 


1$: 


es: 


33: 


;ROUTINE TO GET 
JSR 


(RS)+ :STEP RETURN ADDRESS 
RS : RETURN 

#177770,R0 :STRIP NON-ESSENTIAL BITS 

(RS) sSHIFT LAST CHARACTER 3 PLACES 
(Re) sLEFT 

RO, (RS) sAND INSERT NEW CHARACTER 

18 WAIT FOR NEXT CHARACTER 















"000000 ° 
(13) <te 


"PC RELOCATED FROM ° 





(15><12) 
(7) 








TYPED OCTAL ADDRESS AND CONVERT TO OCTAL. CALL: 
Rite CONVERTED DATA IS PLACED HERE 
E RO AN THE STA 





RO, -(SP) : SAV 
CRS) *CLEAR OLL ‘bg TA 
aaTkS “WAIT FOR USER TO TYPE CHARACTER 
aaTKB, 80 :GET CHRACTER 
#209, 50 
177_RO : CHECK os RUBOUT 
: BR BNCH IF NOT RUSOUT 
8°\, d8TP2 : TY 
CLEAR ‘car 
(RS) : SHTET reer ‘TYPED CHARACTER 





CRS) OUT OF DATA WORD 
| :G0 WAIT FOR NEXT CHARACTER 









RO 2818 sECHO CHARACTER TYPED 
815. :CHECK IF CARRIAGE RETU 

35 "BRANCH IF NOT CARR taae RETURN 

PC, PRINT :PRINT MESSAGE BEGINING AT FOLLOWING ADRS 
















s RETURN 





OLOKC-F BASIC 1 
D2OKCF.FL1 


S550 


202272 


002314 
00231 


002324 


SS SS ee 


1 FANILY INSTRUCTION EXER. 


095037 


Q0S90S 
012706 


012737 
7? 


a) 
016737 
poses, 


001405 


009002 


904000 
020000 
177046 
177560 


177772 
177024 


177536 
177772 
001000 


000340 


001010 


002304 
003004 


000054 


002140 
001012 


001012 


002140 


coooo4 


000936 


START: 
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~fITLE DZQKC-F BASIC 11 FAMILY INSTRUCTION EXER. 


ent ;KERNEL MODE 


CLR 0 CLEAR RO-RS 
CLR RI 
CLR Re 
ER R3 
éLR RY 
CL RS 
MOV 8KPTR, SP sSET KERNEL STACK PTR 
sROUTINE TO DETERMINE LAST MEMORY ADDRESS 
MOV #1$, JKERRVEC 
CLR SHERRVES +e 
éLR RO 
ist (RO)+ sWILL TIME OUTWHEN END OF MEMORY 
13: Sug #2, RO 
__ MOV RO: (PC)+ ;SET VALUE INTO LSTMEM 
LSTMEM: .WORD :CONTAINS VALUE OF LAST MEMORY ADDRESS 
SUB #4077 asl 2 THEN :SET PROTECTION FOR LOADERS 
MOV #e- 28, JeFRSTMEM:SET LOWER BOUNDARY AT 20000 
seit BR STA :GO TO START 3 
SR PC, .PRINT sPRINT MESSAGE BEGINING AT FOLLOWING ADRS 
ISR RS, RECD T LOWER LIMIT 
18: .WORD 0 ICONTAINS TYPED LOWER LIMIT 
MOV 1$, asFRSTNEN :SET IN LOWER LIMIT 
gk PC! PRINT : PRINT MESSAGE” BEGINING AT FOLLOWING ADRS 
JR RS, RECD :GET UPPER LIMIT 
23: WO :CONTAINS UPPER LIMIT 
MOV 23, I8LSTMEM 
START3: CLR DSICNT LEAR PASS COUNT 
START2: HOV bennvecv2, autre must jotT e ERROR TRAP TO HALT AT & 
MOV DSICNT deDISPLAY; “DISPLAY PASS RCOUNT 
MOV #SCOPEA JBEMTVEC:SET EMT(SCOPE) TRAP VECTOR 
MOV #ERROR YS SOE :SET TRAP (HLT) VECTOR 
MOY 8340, SE TRAPVECSS :PRIORITY LEVEL 4 ON TRAP 
,gogocoogo000 "Fees TO BE RELOCATED ooooococ 
TST RO) =RO CONTAINS THE ADDRESS OF RELO 
MOV RO. JRERSTAD : SAVE 
MOV PC, RO GET CURRENT PC 
SUB RO : SUBTRACT RELOCATION FACTOR 
MOV RO! DHFACTOR :SAVE RELOCATION FACTOR 
MOV 1 :SET NEW SCOPE PTR 
:CHESK BRANCH INSTRUCTIONS 
ccc :0C'S=0000 
BCS cco :SAME AS BLO 
avs é¢o 
BEG éco 
























BSnte Pit BASIC 12 FAMILY INSTRUCTION EXER. 
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D232e6 100404 BNI cco 


002340 104400 CCO: HLT ;ONE OF THE ABOVE BRANCHES FAILED 


; CONTINUE 
42 opoe7e SEN ;CC’S=1000 


3$2 SLT , 
002354 104400 CCl: HLT ;ONE OF THE ABOVE BRANCHES FAT!eD 


ef 
o92356 000262 a SEV :CC’S=1010 
502360 


002366 8 . 
O0e375 104400 CCe: HLT ;ERROR! ONE OF THE ABOVE BRANCHES FAILED 













; CONTINUE 
O023"e 000261 SEC ;CC*S=1011 
002374 103002 BCC CC3 
002376 101001 BHI CC3 
092400 90300! BGT +4 
C2402 104400 CC3: HLT ;ERROR! ONE OF THE ASOVE SRANCHES FAILED 


; CONTINUE 
O0e+4 000264 SEZ ;CC*S=11il 


401 ; 
Ooe4ie 104400 cC¥: HLT ;ERROR! ONE OF THE ABOVE SRANCHES FAILED 
ods420 id4od0 SCOPE 


; TEST UNARY CONDITION CODES 
:CLR =: RO 
G0e422 000277 Scc 
005000 CLR RO ;RO=0,00°S=0100 


002440 003401 BL : 

O0e4+4e 104400 CLRO: HL ;ERROR! INCORRECT CC’S AFTER CLR 
002444 000277 SCC 

O0e44— od00244 CLZ 

O0e450 005700 TST RO ;RO=0,C0°S=0100 

Oe4Se 103404 BCS TSTO 

CO2e454 102403 BYS TSTO 





















DZOKCF.P11 


ooo 
ro 
owo 
— 
oO 
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001001 BNE ADCO 
002001 BGE a# 
104400 ADCO: HLT sE8"° «! INCORRECT CC’°S AFTER ADC 
000261 SEC 
006000 . ROR RO »hus.eu00,C0°S=1010 
103404 BCs RORO 
402 
003901 BGT , 
104400 RORO: HLT ;ERROR! INCORRECT CC°S AFTER ROR 
000277 SCC 
000242 CLY 
300 DEC :RO=077777,CC’S=CO11 
103004 BCC DECO 


104400 DECO: HLT ; ;ERROR! INCORRECT CC’S AFTER DEC 
000257 ccc 
095200 INC RO ;RO=100000,CC"S=1010 
103404 BCs INC 
02 
003001 BGT ° 
104400 INCO: HLT ;ERROR! INCORRECT CC*S AFTER INC 
000277 C 
000242 CLY 
005400 ;RO=100000,Cc"S=1011 
103003 
1Ge00e 
C0140) 





001002 BNE TSTO © 

100401 BMI TSTO 

191401 BLOS 4 

104400 TsO: WLI ;ERROR! INCORRECT CC°S AFTER TST 
O00eS7 . ccc 

000266 +SEZ! SEV 

005100 é; COM RO ;RO=-1,00°S=1001 

ane BC COMO 


104400 COMO: 4HLT 5 ;ERROR! INCORRECT CC’S AFTER COM 


oo05500 ADC RO . :RO=000099,c¢’S=0101 


002624 
002626 


02630 
0232 


002764 


a eae ee 


002001 
104400 


00261 


005400 
00 


104600 


005000 


050316 


peek er Dee 11 FANILY INSTRUCTION EXER. 


NEGO: 


ASLO: 


ROLO: 


ASRO: 


SBCO: 


SWABO: 


;CHECK REGISTER 
CLR RO 


MACY11 27(732) 


+4 
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;ERROR! INCORRECT CC’S AFTER NEG 


;RO=000000,CC’S=0111 
;ERROR! INCORRECT CC’S AFTER ASL 
;RO=000001 ,Cc’S=0000 


;ERROR! INCORRECT CC°S AFTER ROL 
;RO=000000,CC’S=0111 


;ERROR! INCORRECT CC*S AFTER ASR 


;RO=-1,C0C°S=1001 


;ERROR! INCORRECT CC°S AFTER SBC 


;RO=000001 ,C¢*S=00001 
;RO=000400'" ,Cc*S=0100 


;ERROR! INCORRECT CC°S AFTER SWAS 


;RO=1 
;R2=2 
;R3=4 


;R4=10 


=20 
SET BITS SET IN REGISTERS 
INTO STACK ADDRESS 





DZOKC-F_BASIC 11 FAMILY INSTRUCTION EXER. 
DZQKCF.PL1 


85 8S 
tw 
ror 
iy} 


003136 


050216 
050016 
022726 


a8 184800 


000257 
112707 


10378 
) 


00520 
001401 
104400 


005704 
001401 
104400 


012705 
006305 


104400 


005002 


00be0e 


000037 


000377 


000020 


100000 


177401 


000001 


1$: ROL 


es: SEC 


3$: ASR 


4$: ADD 


S$: 


&$: HLT 
; CHECK ot et 


MACYL1 27(732) 
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Re, (SP) 
RO; (SP) 
#3", (SP)+ - 


NPSEING. BIT(S) REPRESENT 
talect REGISTER SELECTION 


BITS CAN BE SET & CLEARED IN ALL REGISTERS 


#377,RO :SET ALL BITS. (mve EXTENDS SIGN) 
R sROTATE @ 0 THROUGH ALL BIT 
l tp t ONS 
RO. FINAL RESULT IS -1 
; ERROR! | 
#i6.,RO :SET SHIFT COUNT 
Re sROTATE 1 THROUGH ALL BIT POSITS 
RO DE CRENENT SHIFT COUNT 
Re :R2 SHOULD CONTAIN -1 
; sERROR! CHECK R2 SHOULD = 9 
#100000,R3 
R3 sEXTEND 1 BIT THROUGH ALL POSITIONS 
R3 ? 
ae) 
ERROR! 
#177401 ,R4 saz! 
4 ,R4 HAS THE AFFECT OF SHIFTING A BIT 
US STHROUGH ALL POSITIONS 
RH “RESULT SHOULD BE 0 
#1,R5 
RS 
S$ 
RS 
6 
RS 
+4 
VOLITILITY 
R2 
Re ;Re=-1 
Re,R3 
R2 :R2=LOOP COUNT 
Re 
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ZOKC-F_BASIC 11 FANILY INSTRUCTION EXER. 
DZQKCF.P11 









003140 9010304 7$: MOV R3,R4 
003142 005302 DEC Re ;DECREMENT LOOP COUNT 
003144 001375 BNE 7$ 






Bo 186 pordo2 BNE Og ;CHECK R3 


005204 INC RY ;CHECK RY 
003154 001401 8EQ +4 








003156 104400 8$: — HLT 
;CHECK TRANSFER OF REGISTER DATA BETWEEN ee GS AND GD REGISTERS (11/45) 
003160 032737 000020 177776 &STST: BIT #20, d#PSW ;CHECK_IF_ ’T’ BIT IS SET 
003166 901052 BNE 7$ ;SKIP TEST IF *T’ BIT SET 
003170 O10146 MOV R1,-(SP) :SAVE SCOPE pra 
O0317e 010627 MOV SP, (PC)+ SAVE STACK 
003174 00000 1$: WORD @Q ; CONTAINS SAVED STAC 
003176 010727 MOV PC, (PC)+ :LOAD DATA. THE GURRENT Be IS USED AS 
003200 000000 2s: -WORD 0 ;DATA. IF THIS ye CON- 











S267 7 es ; KE ro C 

003206 016700 177766 3$: MOV 2$,R0 ;LOAD GD REGISTER O 
003212 910001 MOV RO,R1 ; TRANSEER GS REG 0 TO GD REG 1 
O0S2ets 910102 MOV R1,Re AND = REG 1 TO GD REG 2 

01020 SETC. . 

20 0103 

003222 010405 MOV R4Y,RS 
003224 152737 000340 177776 BISB #340, J8PSW ;SET PRIORITY LEVEL 7 
O03e3e 010506 MOV RS, SP TRANSFER GS REG 5 10 GD STK PTR 
003234 010627 MOV SP, (PC)+ ; TRANSFER GS STK PTR_TO MEMORY 
003236 000000 48: -WORD 0 s CONTAINS GS STACK PT 
003240 016706 177730 MOV 1$,SP ;RESTORE STK PTR NEEDED FOR HLT/SCOPE 
003244 142737 O0CS4O 177776 BICB #340, dePSW SET PRIORITY LEVEL 
O032Se 026700 177760 CMP 4§,RO ;COMPARE GS/GD pid WITH GS REG 0 
003256 001004 BNE S$ BRANCH IF THEY 

006367 177714 ASL es :SHIFT TEST DATA WNTIL = 900000 






BR 6$ 
003270 O10046 S$: MOV RO,-(S ;GET GS REG 0 
00327e S 13) 





003304 104400 HLT ;ERROR! DATA iN GS STK PTR_NOT = GS REG O 
SS REG 0-GS aS : ARE ON THE STACK 







003306 016706 177662 MOV 1$,SP ;RESTORE STACK 
003312 O1e601 6$: MOV (SP)+,R1 RESTORE SCOPE Be 
003314 104000 7$: SCOPE 







; TEST UNARY WORD INSTRUCTIONS USING ADDRESS MODE 1 







003316 O0040i BR 

003320 000000 WORD 'S ;RESERVE ADDRESS FOR TESTS 
O0332ee 010702 MOY PC,Re 

003324 16e70e Oo00004 SUB 84 Re ;Re ort TO RESERVED WORD 
003330 O050le CLR (Re) :PRESET (R2) 





003332 C00e61 
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003334 006012 ROR (Re) ; (R2)=100000, CC=1010 


Bbseua PBg906 ROR1: AL ods ;ERROR! INCORRECT cc's AS SHOWN ABOVE 


003359 000261 SEC 
00335e 905312 DEC (Re) ; (R2)=077777,CC=0011 
003354 103001 BCC DEC1 


003360 104400 DECi: HLT j ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


ode 
003364 000261 SEC nee 
003366 O055ile ADC (Re) ; (R2)=100000, CC=1910 
003370 103403 BCS ADC 

002 

003376 001001 BNE + 
003400 104400 ADC]: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
00340e O06iie ROL (R2) ; (R2)=000000, CC=0111 
003404 103003 Cc. BCC ROL1 


O00341e 190001 BPL +4 
003414 104400 ROL1: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
003416 OO06ile ROL (Re) ; (Re}=000001 ,CC=0000 
003420 101402 BLOS ROL1A ;BRANCH IF C OR Z IS SET 
O0342e 102401 BYS ROLIA 
003424 100001 BPL 
104408 ROLIA: HLT 

003430 O06ele ASR (Re) ; (Re)=000000,CC=0111 
003432 103003 BCC ASR! 
003434 102002 BYC ASR1 
003436 001001 BNE ASR1 
003440 100001 BPL +4 
OOs442e 104400 ASR1: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
OO3444 00601 ROR (Re) ; (R2)=100000,CC=1010 
OOS446 103403 BCS ORLA 
003450 10200e BYC RORIA 

Se 001401 BEQ ROR1A 
003454 100401 BMI +4 
003456 104400 RORIA: HLT 
003460 000261 SEC 
OO346e O005ele2 —. xe (Re) ; (R2)=100001,CC=1001 
003464 103003 - BCC INC1 
OOS466 10e40e BYS INC] 
003470 001401 BEQ INC] 
003472 100401 +4 


B Menee 
003474 104400 INC1: HLT ;ERROR! INCORRECT CC°S AS SHOWN ABOVE 











ZOKC-F a 11 FAMILY ENS TRUC TION EXER. 
DZOKCF .P 
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003476 005612 SBC Es (RR) ; (R2)=100000, CC=1000 
003500 103403 BCS SBo1 
00350e 10e40e BYS SbCl 
003504 OO hat Bee S801 
003506 100401 M +4 


B 
003510 104400 SBC1: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


pe aals 000261 aa SEC 
003514 ig 10303 SBC (Re) ; (R2)=077777 ,CC=0010 


0 B : 
he 104400 SBC1A: HLT ;ERROR! INCORRECT CC’S AS SHOEN ABOVE 


003530 000261 SEC . 

003532 o05Sle ADC (Re) ; (R2)=100000, CC=1010 
003534 100401 BMI +4 

093536 104400 HLT 











0261 
003542 O063le ASL (Re) ; (R2)=000000,CC=0111 


3552 . 
O93S5S4 104400 ASLI1: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


O03556 005112 COM (Re) ; (R2)=177777,CC=1001 
003560 10300e BCC COM1 
003562 102401 BYS COM1 


063564 10040! BMI +4 
OG3566 104400 COM1: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


3 
003572 O0571e TST (Re) ; (R2)=177777, CC=1000 


0036 ° 
003604 104400 TSTl: HLT ;ERROR! INCORRECT CC*S AS SHOWN ABOVE 








003606 30 
O°3610 d0541e2 NEG (Re) ; (R2)=000001 ,Cc=0000 


003620 104400 NEG]: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
003622 00521e DEC (Re) ; (Re)=000000,CC=0101 








1401 B , 
003630 104400 DECIA: HLT :ERROR! INCORRECT CC’S AS SHOWN ABOVE 
003632 104000 S 
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; CHECK a hee techie ante USAESERVE Bi MODE 1 
;ADDRESS RESERVED FOR TESTS 


MOV 
ococo4 ;R3 POINTS TO EVEN.BYTE OF WORD 
:R4 POINTS TO ODD BYTE OF WORD 


sPRESET DATA 


003634 000401 


;ADD CARRY TO EVEN BYTE 
UNTIL EVEN BYTE ores NEGATIVE 
INCREMENT ODD BYTE 


; (R3)=077600=(0774) (200) ,CC=1010 


; (R3)=100200=! 1000112003,CC=1010 


+ 
104400 : : ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
106114 a (R4) ; (R3)=0002C9=(0000)[2001,CC=0111 


’ " 
003716 104400 : _ gERROR! INCORRECT CC’S AS SHOWN ABOVE 
003720 105614 ;(R3)=177600=(1774][200), CC=1001 


: + 
730 104400 : ;ERROR! INCORRECT CC’°S AS SHOWN ABOVE 
106313 ; (R3)=177400,CC=0111 


+ 
003742 104400 LB1: ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
003744 105413 er of R3) ; (R3)=177400, CC=0100 
;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
;(R3)=177777, CC=1901 


+ 
003770 1O4400 : ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


003772 00241 C 
003774 106013 ; (R3)=177577,CC=0011 
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004040 
OO404e 


004076 
004100 
004102 
004104 


004120 
004122 


103002 


104400 
000241 


104400 
106213 
102002 


104400 
106214 


104400 
105314 
001401 
104400 


000261 


104400 
oo024e 


104400 
000261 


104400 
000277 


;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
; (R3)=000177,CC=0101 
;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
;SHIFT EVEN BYTE UNTIL V CLEARS 
;AND ADD CARRY TO ODD BYTE 
;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
; (R3)=000400, CC=0011 
BN +4 
ASRBIA: ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


; (R3)=000000 , cC=0100 
;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


; (R3)=100000,CC=1010 
BM +4 re 
RORBIA: ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
; (R3)=077400, CC=0100 
; (R3)=077777, CC=1001 


BM 
DECBIA: ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 


: (R3)217757721 1774111771 ,CC=0000 


;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
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54164 
OOS186 


5O4250 


004254 


Oo4e75 
Ao4e75 


} 
| 
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£0 
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i 
e~-e~ 


ye- oD 
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BR5B58 
Ot SNL £O TO 
mor 38 
OO WO Gleb 


La | 
+. 


010405 
o050:5 


009277 
000244 


OOi40 
104400 


l 
103001 
100401 
104400 


000430 


o000o4 


er et 


av? 


wie 


ON EXER. 


TSTS1: 


ASLEIA: 


COMS1A: 
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3 (R39) 217757751 17741177) ,CC=1000 





;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
; (R3)2000177=[0000111771 ,CC=0100 


;(R3}=2000376 ,CC=1010 


;ERROR! INCORRECT CC S AS SHOWN ABOVE 
; (R3)=000001,CC=0001 


sERROR! INCORRECT CC'S AS SHOWN ABOVE 


;(R3)s000400, CC=0100 


3 (R39) 2090400, CC=0100 


;CHECK REMAINING RESULT 


; CHECK — WORD OPS USING ADDRESS MOCES 2 AND 4 (AUTO INC DEC? 


TSTe: 


TSTS (R4) 
ees TST81 
BvS TSTBi 
BMI +4 
HLT 

CLRB (R4) 
BEQ +4 
HLT 

ASLE (R3) 
Bcs ASLBILA 
8vC ASLBLA 
BMI +4 
HLT 

COMB (R3) 
gcc COMB18 
BVS COMB1A 
BPL +4 
HLT 

Swag (R3) 
BES +4 
HLT 

INCB (R32) 
SEC 

S8c8 (R32) 
BEO +4 
HLT 

CMP #400, (3) 
BEG 24 
HLT 

SCOPE 

.WORD 9Q 

MOV C,R4Y 
SUB #4,R4 
MOV RY, RS 
CLR 76) 
5C¢ 

CLZ 

TST (RS)+ 
Bcs TST2 
BVS "$Te 
BEG .*4 
HLT 

COM -(RS) 
BCC COM4 
BMI +4 
HLT 


;ADORESS RESERVED FOR TESTS 
;R4_AND RS POINT TO 


;RESERVED WORD 
;PRESET DATA=O 


; (RS 2000000, CC=0100 


;ERROR! INCORRECT CC*S AS SHOWN ABOVE 
3 (RS)2177777,CC=1001 


;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
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d043i2 
004314 


OS4410 
pone 


004424 
04426 


1oaac6 


TON EXER. 


i ae 
ROR (RY) + : (R4)2077777,CC20011 
BCC ROR2 ; ; 
BVC ROR 
BPL +4 
ROR2: HLT ;ERROR! INCORRECT CC’S AS SHOWIN ABOVE 
ccc 
INC (RY) ; (R4)2100000,CC=1010 
Bve INC4 
BEQ INC4 
SMI +4 
"NCH. = HLT sERROR! INCORRECT CC’S AS SHOWN ABOVE 
SEC 
SWAB (R4)+ ; (R4)=000200, CC=1000 
fo 
SWAB2: HLT ; ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
NEG (R54 ; (RS)=2177600,CC=1001 
BCC NEG2 - 
BMI +4 
NEG2: HLT sERROR! INCORRECT CC°S AS SHOWN ABOVE 
CLR = (RD ; (R4)=000000, CC=0100 
BEQ 74 
HLT 
SEC 
we -(RS) ;(RS)=100000,CC=1019 
ADC (RS)+ ; (RS)2100001,CC=1000 
BVS ance 
BMI +4 
ADC2: HLT ;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
SEV 
ASR (RY )+ ; (R4)2140000, 0C=1001 
BCC aske 
BVS AsRe 
BMI +4 
ASR2: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
SEV 
ROL -(R4) 3(R4)2100001, CC=1001 
BCC ROLY 
BYS ROLY 
BM? oe] 
ROLY: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
Bek ~< ;(RS)=100000,CC=1000 
5 Fae ;ERROR! °C’ BIT FAILED TO CLEAR 
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oo4550 
094552 
804554 
CO4SS6 
pauses 
CO4S 

BEES 
OO4SEE 
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104000 


900401 


10040} 
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DEC (RS)+ ; (RS)=077777 ,CC=0010 
BCS DECe 
BYvC DESe 
BF +4 
HL sERROR! INCORRECT CC’S AS SHOWN ABOVE 
ASL (R414 : (R4)2177776,CC=1010 
BY +4 
HL 
ASL -(R4) ; (R4)2177774, CC=1001 
Bcc ASLY 
BvS ASLY 
SEQ ASL4 
SMI +4 
HLT sERROR! INCORRECT Cc’S as SHOWN ABOVE 
CMP 8177774, (RY) + 
BEQ +4 
HLT 
CMP RY RS 
BES +4 
HLT 
SCOPE 
: CHECK ee BYTE OPS USING RODRESS POEs 2 wane “ 
. WORD " “RESERVED WORD 
MOV PCRS , 
Sus ,RS sR5 POINTS TO EVEN BYTE OF RESERVED WORD 
MOV RS,RC 
MOV RO,R2 
INC ated ;Re POINTS TO ODD BYTE OF RESERVED WORD 
CLR (RO) ;PRESET 
CLC P —- 7 
COMB (RS)+ ; (RO)2000377,¢C=1001 
BCC cOomMg2 
BYS COMB2 
BMI +4 : 
HLT sERROR! INCORRECT CC°S AS SHOWN ABOVE 
core “me! ; (RO)=000000, C¢=9101 
HLT sERROR! INCORRECT RESULT AS SHOWN ABOV 
ADCE (RS}+ ; (RO) 2000400, CC=0000 
Bes ADCB2 
BNE +4 a 
HLT sERROR! INCORRECT ¢C°S AS SHOWN ABOVE 
+SEC!SEV 
RORB -(RS) ;(RO)=100000,C¢=1001 
BCC RORBY 
BYS RORSY 
BEG RORBY 
BMI +4 
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00402 


004604 
O04 


004722 
004724 


004736 


reo 


104400 


104400 
105725 


104400 


RORBY: 


ROLBe: 


ASRBe: 


ASRB2A: 


ASLB4: 


DECBe: 


SBCBY: 


NEGBY: 


TSTBe: 


MACYLL 27(732) 


HLT 

sec 

ROLB (R2)+ 
BCs OLBe 
BvS ROLBe 
SEQ ROLBe 
BPL +4 
HLT 

ccc 

ASRB (&5)+ 
8c$ ASRB2 
ve ASRS82 
BMI = 
HLT 

INC8 -(R2) 
Scc 

ASRS (R2)+ 
Bcs ASRB2A 
BvS ASRS82A 
BPL +4 
HLT 

+SEZ'SEV 

ASLB -(RS) 
BCC ASLBY 
BYS ASLBY 
BEQ ASLBY 
BMI a4 
HLT 

DECB (R2)+ 
BCC DECB2 
BYC DECBe2 
BPL +4 
HLT 

Secs -(RS) 
BCS Secs4 
BVS S8CB4 
BEQ +4 
HLT 

NEGB -(R2) 
Bcc NEGB4 
BvS NEGSY 
BMI +4 
HLT 

TSTB (RS)+ 
BCS 
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;ERROR! INCORRECT CC°S AS SHOWN ABOVE 


; (RO)=100001 ,CC=0000 


sERROR! INCORRECT CC'S AS SHOWN ABOVE 
:(RO}=140001, CC=1010 

sERROR! INCORRECT CC'S AS SHOWN ABO.E 
; (RO)=140002, C¢=0000 

; (RO)=140001, CC=0000 

sERROR! INCORRECT CC'S AS SHOWN ABOVE 


SET 2,¥ 
:(RO)={00001,CC=1001 


;ERROR! INCORRECT CC’S AS SHOWN ABOVE 
;(RO}=077401=(0774) (001) ,CC=0010 


;ERROR! INCORRECT CC°S AS SHOWNABOVE 
;(RO)=077400, CC=0100 


;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
;(RO)=10400,CC=1001 


;ERROR! INCORRECT CC*S AS SHOWN ABOVE 
; (RO)=100400,CC=0100 
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B8 RR i TSTB ss (R24 ; (RO)=100400, CC=1000 
0474 BEO T$Be4 

poacue hati TSTBZA: HLT F 

O87 EC 
BeaoeS BposG3 WAB = =(R2) ; (RO)=000201,CC=1000 
004754 103401 BCs SWwaB4 

94 190401 BM +4 

4760 104400 SWABY: HL 


o47s2 900277 SCC 
105225 RS) ; (RO) =000601=10004112011,cC=0000 
UL 


ae 000601 CMP i, . 3CHECK END RESULT 


Os rte tte HLT 
005010 do20205 CMP R2,RS :CHECK REGISTERS 
995012 601401 BEQ +4 


;CHECK UNARY WORD OPS USING ADDRESS MODES 3 AND S 


ooso020 oo0402 BR +6 ;RESERVE 2 WORDS 
o05022 ooc009 -HORD «60 1 FOR THE RODRESS 
005024 900900 “WORD 0 :AND 1 FOR DAT 

p05026 019703 MOV PC,R3 

905030 162703 ooc004 Sug #4°R3 

065034 005013 CLR (R3) :PRESET DAT 

005036 910300 | MOV R3 RO *RO POINTS 70 DATA WORD 


00025; 
o0s0S0 005733 TST a{R3)+ ; (RO)=000000, CC=0190 
005052 901401 BEQ +4 


905054 104400 HLT 


O0S0S6 000261 SEC 

005060 006053 ROR a-(R3) ;(RO)=100000,C¢=1010 
103402 BCS RORS ; 

005064 102001 BYC ORS 

OOS0&6 100401 BMI + 

005070 104400 RORS: HLT 

005072 000257 cece 


| 005074 006234 ASR CRS : (RO)=140000, CC=1010 
c ASRS 
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04 900250 CLN 
06 006333 ASL acne ; (RO)=100000, CC=1001 





000277 
O0Sige 905354 DEC a-(R4) ;(R0)=077777, CC=0010 





005136 005453 NEG a-(R3) ;(RO)=100001, CC=1001 














10040 
DOSi46 104400 NEGS: HLT 
005150 o00262 SEV 
905152 005124 COM = (RH) + ;(RO)2077776, CC=0001 
005154 103001 Bcc = CONS 
005156 102001 BvC 4 
005160 10440 COM3: HLT 

Slb2 005232 INC —-@(R3)+ ;(RO)2077777, CC=0001 
095164 103001 Bcc ——sINC3 
005166 100001 BEL 
005170 104400 _ INC3: HLT 
005172 o0s554 ADC = 2-( RY) ;(RO)=100000, CC=1010 
905174 103402 BCS = ADCS 
005176 102001 Bc © ADCS 

100401 BMI - 

005202 104400 a075: HLT 
pos204 900257 ccc 
605206 006134 ROL = a(RY)+ ; (RO) =000000, CC=0111 
005219 103002 . BCC —- ROL : 
O052i2 i200! : Bvc = ROL 
005214 01401 3 BEQ #4 
o052i6 104400 ROL3: HLT 
p0s220 onses3 Ine a(R) ;(RO=025091, C=0002 
O05222 o05654 Se¢ 2 = ( RY) ;(RO,=c00000; ¢¢=0100 
005224 103401 BCS SBCS 
o05226 001401 BEQ +4 


| 005230 104400 SBCS: HLT 
005232 104000 SCOPE 
{ 


; CHECK — BYTE Ary USING cea es 3 AND S 


005234 000403 . WORDS 
0 ;1 FOR EVEN BYTE ADDRESS 


O0523& 000000 





“NORD 
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00S240 990090 -WORD 0 ;1 FOR or ADDRESS 
O0S24e 900000 . WORD is ;AND 1 FOR 


Bpesue BABSy Wet ne ABS ;BACK R2 UP TO 


905250 005742 TST -(Re) :DATA WORD 
p052S2 010200 MOV R2,RO :RO POINTS TO THE DATA WORC 
oo5254 905910 CLR (RO) :PRESET DA ATR 
o05256 005742 TST -(R2) “BACK Re UP TO 

60 oos74e TST -(R2) EVEN Bere ADDRESS WORD 

be 910022 MOV RO, (R2)+ LOAD A 
095264 905200 INC :ODD BYTE ADDRESS 

$6 910022 MOV RO, (R2)+ *LOAD ODD BYTE ADDRESS 

é 019200 Re: RO RESET RO 


S274 105152 a a-(Re) ; (RO)=177400, CC=1001 


104400 COMBS: HLT 


005304 105752 TSTB a-(R2) ;(RO)=177400, Cc=0100 
005306 ote, BEQ, =. #4 . 


O00S3ie O00026e SEV 
005314 106255 ASRB a-(RS) ;(RO)=177400, CC=1001 
C0S316 1 C 


005326 105232 INCB a(R2)+ ;(ROJ=177401, CC=000 


oo0241 f. 
106055 RORB  a-(RS) (RO)=177400, CC=0111 


905354 106332 ASLB a(R2)+ ;(RO)=177000, CC=1001 
005356 : C 


;(RO)=177400, CC=1C00C 


005374 10440C 
005376 000277 
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005510 


106135 


104400 
eae 


104400 
005167 
103002 


104400 


177746 


ROLB a(RS)+ 
ROLB3 


;(RO)=177401, CC=0000 
;BRANCH IF C’OR Z IS SET 


;(RO)=000777, CC=100C 


;(RO)=000377, Cc=0i00 


; (RO)=000001 
;(RO)=000000, cC=010! 


;CHECK UNARY WORD Ais USING ADDRESS MODE 6 (PC) 


BLOS 
BVS ROLB3 
BPL .+4 
ROLB3: HLT 
SWAB ss 9-(R2) 
HLT 
SEC 
SBCB_ 2s CRS) + 
8csS SBCB3 
BEQ +4 
SBCB3: HLT 
NEGB a(R2)+ 
DECB  =- = (R2) 
BCC DECBS 
BEQ +4 
DECBS: HLT 
SCOPE 
CLR 
UWMG: WORD 
MOV 
CMP PeRO)  ~(RO) 
Scc 
ROL UWMG 
BS ROLE 
BYS ROLE 
BEQ ROL6 
BPL ss +4 
ROLG: HLT 
COM UWME 


;PRESET DATA = 0 
RESERVED FOR “DATA 


;RO POINTS TO DRTA WORD 
; (RO)=000001 , CC=0005 


;(RO)=177776, CC=1001 





oes paste 11 FAMILY INSTRUCTION EXER. MACY11 27(732) 21-APR-76 13:33 PAGE 36 
aul 


ote ete 11 FAMILY INSTRUCTION EXER. MACYL1 27(732) 21-APR-76 13:33 PAGE 38 
Z ‘ 


O0SS66 102001 BYC ADCE 
005670 MI +4 
177546 


HLT 
000209 #200, (RO) 
. BEQ +4 


HLT 
005716 104000 SCOPE 
; ;CHECK UNARY evTE OPS (EVEN/ODD) USING ADDRESS MODE & (PC) 
005720 oe 006262 MOV RO 
005724 001004 SH ACTOR, RO ;RO a'guit B TQ ADDRESS OF DATA 
000326 UBME :CLEAR DAT 


000316 


1044C0 


000257 Cc 
000277 m ;TEST ODD BYTE 


104400 
105667 O00c66 UBM& ;(RO)=000000, cC=0100 


o00250 UB SLOOP UNTIL (RO)=077600, cC=1011 
000243 SINCB INST INCREMENTS EVEN BYTE 
BR I FADGB INCREMENTS ODD BYTE 
102401 
104400 
106367 000226 UBMs ;(RO)=077400, CC=0111 


| rg 
000207 y :(RO)=100000, ¢C=1010 
¢ CBb 


006056 
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DZOQKCF.P11 
006060 
006062 


006162 
005164 


006234 
006236 


100401 
104400 
000261 


104400 
000262 


104400 
106267 


104400 
105267 
001401 
104400 
105367 


104409 
000367 


104400 


106167 
103002 
102001 


000171 


000154 


009137 


000123 


000106 


009072 


000057 


000040 


000026 


ADCBE: 


;(RO)=140000, CC=1010 


;(RO)=140377 CC=1001 


UBMb+1 ; (RO)=040377, CC=0001 
NEGBE 

NEGBE 

+4 


UBM6+1 ;(RO)=100777, CC=1010 
ROLBE 
;(RO)=100777, CC=1001 


;(RO)=100400, CC=0101 


INCBEA: 
:(RO)=100000, CC=1001 


BM 
DECBEA: 
;(RO)=000200, Ct=1000 


' UBMG ; (RO)=000000,, ¢C=0111 
- ROLBGA 
ROLBGA 





A ET 
~—_ 


=3h 
ov v a 


SeEaee 


006452 





mi m es 11 FAMILY 


tet 
nao 
a 
£09 
199 


fetet grates 
~) 

OWNIOtd 

= JOO IC 


104400 
COCebe 


INSTRUCT 


001010 


006314 
001004 


coocce 


oo00oe2 


ocoade 


Ee ee 


ON EXER. MACY! 27(732) 21-QPR-76 13:33 PAGE 41 
pLLLILILLI111 FIRST ADDRESS TO BE RELOCATED L11111111 
RELI: MOV PC RO T 

TST -(R0) iO -DNTAINS THE ADDRESS OF FEL 
MOV RO, SaFRSTAD 
MOV PC.RO ‘2ey CURRENT PC : 
sus 8. RO ; SUBTRACT RELOCATION Facto & 
MOV RO‘ daFACTOR :SAVE RELOCATION FACTO 
MOV PCR} -:SET NEW SCOPE PTR 
:CHECK UNARY WORD OPS USING RODRESS MODE 7 . 
3k UW? RESERVE 3 WORDS FOR RODRESSES g DATA 
.WORD Q CONTAINS ROOK ESS OF 
UWM7:  .WORD OQ -CONTAINS DATA 
.WORD «8 sCONTAIN ADORESS OF UWM7 
Wd? MOV PC.RO 
1ST -(R9) 
TST -(R0) - 
CLR -(R6) sCLEAR TEST DATA 
MOV RO, Re 
MOV Re’ -( RO) »SET UP ADDRESS _ 
TST (RO)¢ :MOVE RO TO NEXT ADDRESS 
TST (RO)+ 
MOV Re, (RO) SET NEXT ADDRESS ; 
Hoy R2,R0 :SET RO POINTING TO DATA 
CLZ 
TST 9212) ;(RO)s000000, ¢¢=0100 
BEQ “= 
HLT 
sce 
Sac 2-2(2) s(ROSl70777, CCs1002 
cc ssc? 
By 5e¢7 
lye +4 
Ssc?: HLT 
scc 
cue , , Se Ie tee ee 
ASL 222) -(ROSl77776, CC=100i 
Bcc ASL? 
ASL? 
BMI +4 
ASL7: HLT 
ccc —T Pee 
DEC adele) s(RO)2177775, WS. 
BCS DEC? 
. BS DEC? 
- BMI +4 
DEC7:- HLT 
SEV 
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D23k 
‘O064S4 OO6272 17777 ASR a- 2¢ 2) ;(R0)2177776, CC=1001 
OO6460 103002 BCC ASR? 
S462 102401 BVS ASR? 
Dopey 100403 — Bsy 
age 109450 ase?: HLT 
906470 900241 oLe 
B0e472 Oods62 Sey 
OOE474 OObO7S 177776 ROR —s- 9-22) :(80)2077777, CC=0000. 
Spesoc 101402 BLOS ROR? IBRANCH IF C’OR 2 IS SET 
Boesoe 10a401 BVS ROR? 
56504 100001 SPL +4 
104400 ROR?: HLT 
Ones poses ; sey 
Boesi2 Oosdre occooe NEG sé (2) :(RO)=100001, ¢C=1001 
S085! 103002 Bcc 2OCNEG? 
006520 102401 BVS NEG? 
OeSe2 1OCYO! _ BMY +4 
dogs24 jos4o0 NEG?: HLT 
ODES25 O0NPED CLN 
O0S530 000372 17777 SWAB = 9-22) . s(RO)2000800, e¢=1900 
306534 103401 acs ss SWAB? : 
NOSE36 10045] BMy "+4 
B5g540 104400 SWAB?: ALT 
opes42 ooneee ; SEV 
o0e544 005172 o00c02 COM a2) s(ROVESITPLIT7, CC=100! 
S0E550 103002 Bcc =| COM? 
BogSs2 10240! evs «COM 
O5e554 IOo401 BMI +4 
104409 COM7: — HLi 
opeseo 00372 coo002 SwAB saa 2) =(RO)SO7777%, CC=1900 
ddsee4 19040) | BMI +4 
OD6566 104400 HLT 
o06S70 009277 SCC 
Aoes72 05s72 177776 ADE ssa B(2) (ROSOPPPP?, CC=9000 
SOES7& 103402 acs ; 
06600 10240! 8VS ADC? 
O2 190001 BPL +4 
104409 noc?: HLT 
poseos oose7e oooo02 INC g2(2) s(RO)2100000, ¢¢=1910 
OOg612 10200! Bye —s TIN? | 
06614 100401 } BMT +4 
OOg616 104400 INC?: HLT 
op¢620 900257 ccc 
fees D06172 177776 ROL = a2) :(RO)2000000, CC=0111 
Oo66e6 103002 Bcc ROL? , 
06630 10200" BV —s- ROL? 
Ooeeze 60146 EG +4 


B 
008634 104400 ROL7: HLT 
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DSOKCF P12 
006$36 


Sbees 


O0&750 
506752 


104000 


1 
100603 


104400 


INSTRUCTION EXER. 


coocc2 


177776 


oo0ode2 


o00cde 


177776 


ococde 


MACY11 27(732) 
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CHECK UNARY BYTE_OPS USING ADDRESS MODE 7 


Sv0vE 
TST Yt 
INC (RO) 
TST -(RO) 
alt cRO) 
»NOTE 
+SECISEV 
$8ce de(2) 
8¢c¢c S8C87 
8VvS 38°87 
BEQ $8¢87 
BMI +4 
S8CE7: HLT 
sc¢ a 
ADCcB a-2(e) 
Bcs ROCB? 
BYS ADCS? 
BEQ ADCE7 
BPL +4 
ADCB7: HLT 
COMB a-2(2) 
Bcc CONS? 
BYS COM87 
BMI +4 
COME7: HLT 
CLC 
RORS ae(2) 
BCC ROR87 
BvC RORS7 
BPL +4 
RORS7: HLT 
INC8 dete) 
BCC INC87 
BYC INC87 
BMI +4 
INCB7: HLT 
DECB a-2(2) 
Bcc DEC87 
BYS DEC87 
BMI +4 
DECB7?: HLT 
ASLB 2(2) 
BCC ASLB? 
BYC ASL8? 
BEG +4 
ASLB7: HLT 


a a ee eee eee ee 


; WORD Bete UWM? CONTAZNS ADDRESS 
RO POINTS TO DATA WORD 


OF ODD BYTE, 
; PRESET i 
:SET SCOPE P 


d2(2) REFERENCES THE OOD'BYTE, AND 552) REFERENCES THE EVEN SYTE. 


;SET C AND ¥ 
;(R0)=177400, CC=1001 


CONDITION CODES 
}=177401, CC=0000 


;(RO)2177776, CCsl001 


;CLEAR_CARRY 
;(RO)=077776, CC=s0011 


;(ROs100376, CC=s1011 
;(R0)=100375, CC=100i 


;(RO)=000375, CC=0111 








DIOKC-F_BASIC 11 FAMILY 
DIOKCF.P Ll 


O07 i162 


104400 
000257 


102402 


INSTRUCTION EXER. 


177776 


009002 


177776 


ASRE7: 


NEGB?: 


ROLB?: 


MACYL1 27(732) 
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;CLEAR C 
; (RO)= *o0ns7e, cc=1001 


;(RO}=000376, CC=0100 


5 (RO-"9374, CC=1001 


;(RO)=000375, CC=10 

; (RO) =000376, CC=100. 
:(RO)2000377, CC= 
; (RO) )2000000; é¢=0100 


; CHECK oe OPS USING ADDRESS MODE 0 


MOVO: 


SUB0: 


MOVOA: 


9-212) 
EC ASRS’ 
VS ASRB?7 
BMI +4 
LT 
NEGB =: DeL2) 
BC NEGB? 
BV NEGS87 
BEQ +4 
HLT 
SEV 
ROLB = 9-22) 
BCC ROB? 
BvVS i. 8 
BMI +4 
HLT 
INCB 0s 9-22) 
INCB = d-2(2) 
ADCS = g-2( 8) 
COMB. a-2(2) 
BEO +4 
HLT 
SCOPE 
MOV PC,RO 
BCC MOVO 
avs MOvO 
HLT 
MOV RO,R2 
SEV 
SUB RO, Re 
BCS SUBS 
avs sugd 
BEQ +4 
HLT 
CLZ 
MOV R2,R3 
BC MOVOA 
BE +4 
HLT 
ccc 
+SEV!SEN 
CMP R2,R3 
Bcs CMPO 
avs CMPO 


;SET CONDITION CODES 
sRO=PC, CC=xO01 


ar 
‘RE=000000, Ce=0100 


;Re=R3=000000, CC=0100 


Bet V &N 
:Re=R3=2000000, ¢¢=0100 
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DZaKC 








007164 001001 BNE CMPO 
007166 10009 BP +4 
Q07170 10440 CMPO: #HL 










997172 o10002 MOV RO, Re :RO=R2 
607174 610203 MOV R2:R3 :RO=RO=R3 

a Sv ME ee sRa=3 580 

097262 pees aS CMP Re, R3 :Ro=R3=2#RO 

967204 O9140} BEQ +4 

097208 104400 HLT sERROR! CHECK ADD INSTRUCTION 






;THE FOLLOWING SUBTEST SHIFTS A BIT THROUGH Re AND RS AND DOES A 
;8IT 7 a4, IT) o Re AND RS. 








BR 
007216 006302 1§: ASL Re 
100407 $ 
010205 2s: 
000277 





104400 
005902 

000277 
007e56 050002 

103082 
007262 10240! 
007264 901001 
007266 104400 


007270 010003 
7e7e 000277 











007306 
007310 104400 
007312 010004 


007324 001401 


i a ee + 






DZQKCF 

















432 
097434 






007436 
007442 
007444 
007446 
097452 
907454 
007456 
007460 


007462 
007466 
097470 





007472 


104400 
010004 


164 
104000 
012703 
010304 
140304 
so 
0014 
1044 


£ OFt 


104400 
110404 
022704 
001401 
104400 


04 
01. 
0 


Reena A ved 11 FAMILY INSTRUCTION EXER. 


000010 


125252 


125000 


000252 


177552 
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MOV R3,R4 R3=R4=0 

COM R3 :R3=177777 

ROR RY 'R4=100000 

ADD R384 tRQ=177777 ,RHSO?7777, ¢c=0011 


ADD ¥it RO 
RC, Re 
B 
CMPOA: HLT 
SCOPE 
:CHECK BINARY BYTE CPS USING ADDRESS MODE 0. 
MOV #125252, 83 
MC £3.84 ;R9=R4=125252 
BICB  OR3 *Ra=125252, R4=125000 
CMP S800, R4 
BEQ +4 
HLT ;ERROR! BICB FAILED 
CLR RY :R3=125252, RY=0 
BISB R3, RY *Ra=leSe5e, Ry =go025e2 
CMP #252, R4 
BEQ +4 
HLT ;ERROR! BISB FAILED 
MOVB RS, RY :R4=177652 
CHP 41/7652, R4 :MOVB EXTENDS THE SIGN 





;ERROR! MOVB FAILED 





DZOKCF 


007504 
007510 
007512 


007514 
007516 


007640 
o07&42 


132704 
001401 
104400 


104400 
C00277 


177525 


000125 


eke ete” 11 FAMILY INSTRUCTION EXER. 


ADD: 


CMP i: 


BIT1: 


MACY11 27(732) 


#177525,R4 
+4 


RY 


RY. RY 
#125, R4 
+4 


R3,R4 
RY 


RY 
+4 


(R3), CRY) 
ADDI 


ADD1 
+4 


(R3}, 
CMP 1 





(RY) 
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;ERROR! BITE FAILED 


;R4=1775e5 
:R4=060125 


;R3=1leSe52, R4=000377 


MODE 1 

RESERVE TWO WORDS 

RESERVED FOR SOURCE DATA 
RESERVED FOR DESTINATION DATA 
;R4 POINTS TO DESTINATION DATA 
;R3 POINTS TO SOUCE DATA 


; (R3)=177777 
: (R4)=000001 


:(R3)=177777, (R4) =000000, cc=0101 


3 (R3)2177777, (R4)=000000, Cc=1000 


;(R3=177777, (R4)=000000, CC=0101 








DIOKC-F_BASIC 11 FAMILY INSTRUCTION EXER. MACYL1 27(732) 21-APR-76 13:33 PAGE 48 
D2OKCF.P11 


+ULCICLZ 
COM ;(R4)=1 1eeeee 
;(R3)=177777, (R4)=000000, CC=0100 


(RS) 000377 


(R3), (RY) ; (R3)=(R4)=000377 


. (R4) fs da ae il (R4)=177400 
gh)» (RY) : (R3)=000377, (R4)=177777, CC=1001 


; (R3)=000377, (R4)=177400, CC=1001 


;SET V 
(R3), (RY) : (R3)=000377, (R4)=177400, CC=0001 
CMP IA 


; (R3)=000000 


100000 
R4)=100000 
77777 


00000, (RY)=177777, CC=1011 


(R3), (RY) :(R3)= 109900, (RY) 
SuB1B ‘BRANCH IF COR Z 
SUBIE 


2077777, ec=0000 
IS SET 
010002 104400 


010004 011314 (R3), (RY) ;(R3)=100000, (R4)=100000, cC=1000 
010006 001401 ey MOV1 





DZOKC-F_ BASIC 11 FAMILY INSTRUCTION EXER. 
DZQKCF.P11 


19040 


10440 MOVI: 


061314 
1 


88a 
oan 


NOPFELNOTLNS ReEVOTewoOF LVS 
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+4 


(R3) 
Q at 
ADDIA 
ADDIA 
+4 


(RY) 


(RS) (RY) 
(R3). (RY) 
ADD1B 


: —* 
+4 


#2, (R4) 
(R4) 
+4 


(R2), (RS) 
move! 


(RS), (R2) 
chPB! 
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;(R2)=100000, (R4)=000000, Cc=0111 


5 (R3)=07777 
(R4)=077777 
-(RQ)=075797, (R4)=177776, CC=1010 


;CHECK FINAL RESULT 


; (RS)=000000 


; (R2)=000000 
Re POINTS TO ODD 8YTE 
;(R2)=177400 


; (R2)=177400, (RS)=000377,CC=1001 


;CHECK RESULT 


;(R5)=000177, (R2)=100000, CC=1010 
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104400 
151215 ; (R2)=100000, (RS)=100377, Cc=1001 


; (R2)=100000, (R5)=100177, cC=0001 


104400 


105112 (RR) ; (R2)=077400, (R5)=100177 


121215 
001401 
104400 


DODO + b-* b-4 p+ pe i a ee b— 6 +b bb b= = 


1) 
0 
p 
0 
0 
Q 
I] 
0 
4) 
0 
0 
0 
0 
C 
0 
0 
0 
1) 
4] 
0 
Cc 
0 
01 


piste . ;(RS)=100177, (Re)=000000, Cc=0100 


104400 BICB1A: 

000402 BR , ; RESERVE Me WORDS FOR DATA 
;SOU ne pat 
:DEST 
;RS POINTS TO DEST ODD BYTE 
;R4 POINTS TO DEST EVEN BYTE 
;R3 POINTS TO SOURCE ODD SYTE 
;Re POINTS TO SOURCE EVEN BYTE 


;COMMENTS ARE LEAST SIGNIFICANT 4 BITS OF BYTES Pane TO BY R2,R3 
:R4, WO Be RESPECTIVELY AND THE SET CHART BITS ARE 0°S 


: (R2), (R3), (RY) 


(RS) 
;0001 ; 0000; p00’ 0000 
borg" 0000; 0001 } * BABB 


‘sn QO, 0 
010306 ‘01007 0010; 0001 ; 0000 
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CF 


S99 So 8a 88 Se590 
oOo 020 20000 


O00 00 O00 OO} me ere Re be - OO 


ree Re ee OO 00D 20 20 V2GO000 


ee ee ee ee eo 
o00 O00 OO 

ooo oH 

O00 Re ee Oe 


ee -2eee 
a ee) 


BINIL: 


;CHECK BINARY WORD OPS USING ADDRESS MODE 2 & 
MOV R4,R ;SET DESTINATION REGISTER 
000001 au 


177777 


NS ai ; (R2)=177777, (RS)=000000, Cc=0101 
ADDe 
+4 


;SET V 
000001 ~(RS), #1 ;(RS)=s000000, CC=1001 
CMPe 
CMPe 
+4 


(R2),(RS)+ 5 (R2=177777, (RS)=177777 ,CC=1001 
+4 


000244 





























BS eee att BASIC 11 FAMILY INSTRUCTION EXER. MACY11 27(732) 21-APR-76 i3:33 PAGE Se 


DZQK 





M66 162245 Sug (R2)+,~(R5) ;(R2)=177777, (RS)=000000, CC=0100 
472 10240! abe BvS Suse 
4 : +4 


S06 at's 
S10 O4e2eS BIC si est ; (R2)=000001, (RS)=177776, CC=1001 


10524 ole742e 12s252 MOV ayesese = (Re) 
0530 012245 MOV (Re)+, -(RS 
053, 005125 : COM (R5)+° ; (RS) =052525 


034245 BIT -(R2),-(RS) ; (R2)=12525e2, (RS)=0S25e5, CC=0101 


000262 SEV 
OS22e5 BIS — (R2)+, (RS)+ ;(R2)=1252S2, (RS)=177777, CC=1001 
103002 BCC BIS2A 


102401 BVS BISeA 
104400 BIS2A: HLT : 


o42745 125252 BIC #125252,-(RS5) ; (RS)=052525 
005125 COM (RS)+ : (RS) =125252 
24245 CHP ~(R2),~(RS) 


poso12 ‘i CLR (R2) 
005122 COM (Ro)+ :(R2)2177777 
162742 O00001- SUB #1,-(R2) :(Re)= 179576, cc=1000 
10 103402 BCS SUB2A } 
O612 102401 BVS SUBER 


: T 
104000 SCOPE 
O62e 010702 MOV 4% Re eer T CURRENT PC 
0626 AS Gat 1$: CMPB “ifs, -(RS) - COMPARE ALL PREVIOUS MEMORY ADDRESSES 


;ERROR! 
;CHECK FOR LOW LIMIT 





0 
0634 ape 001010 CMP ne SAFI 


DZQKC-F BASIC 11 FAMILY INSTRUCTION EXER. MACY11 27(732) 21-APR-76 13:33 PAGE 53 
DZQKCF.P11 


010642 104000 SCOPE 
;CHECK BINARY BYTE OPS USING ADDRESS MODES 2 & 4 


5 ie “low 5 SHEE yh sos 


:DESTINATION DATA 
PC R3 


TST (R3) 
000200 W200, -(R3) 
000377 #377; -(R3) ; (R3)=100377 


R3 
000177 8107 -(R4) 
goodoo HOV #0,-(R4) 4 R4) 2077400 


104400 


152324 ere ; (R3)=106377, (R4)=077777 


100401 
104400 


122324 (R3)+, (RY) + 
S CMPBe 
CMPBe 
+4 
104400 


000261 
~(R3) ,- (RY) 
TBe 


BITBe 
+4 


~(R3),~(R4) ; (R3)=100377, (R4)=077400 


;CHECK BINARY WORD OPS USING ADDRESS MODES 3 & 5. 
BR 2s ;RESERVE SPACE FOR DATA AND esses 
SOUR CE DAT 


CONTAINS DEST DATA 
{SET SCOPE PTR 
ADJUST RO 
RS POINTS T9_DEST DATA 
icte 4 FROM R 
'RS POINTS TO ADDRESS OF DEST DATA 
:R4Y POINTS TO DEST DATA 


»R ;R3 POINTS TO SOURCE DATA 
RO, - (Re) :Re POINTS TO ADDRESS OF SOURCE DATA 





7 o- 
e+e 


om e-m 
3Ot 3 ee 
FuTuiue- be 
£m cry 


o 


f 


GJ 
oO 


0 -+0 20 *— +p --p9 +9 + 


Oo oo 


@ f 


Beas: 


<0 <0 p< b+ ho pe 0 B+ b+ 9 9 +9 ope 
oO 


wy 
+s 


Oo oc 


o 


wot it) oe] 


initia 


ic 


OOOO YOOMOOOOMOOVIOAIIOOONOOO OfMNOIMOO OON00U0ND 


008s 8 0-0 00-2 bh Oo 8 0 8 8 Be Oo ho 


0+ 20-200 -s 0 8 = 2 2 8 8 0 ho h-hh hh hh hs hh + ho hho ho ho 


eee eee ttt pS te 
NOCHE OoreUOg eee en 


Ooo OOMOooM 


+0 eed eee ed ee ee ee 
e+ o--9- + O-* B+ + 2 oe 
INOW UNE ee eG) 
uw : 

wr cr OR EMSRS 
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905913 
005014 


399 


010700 
Ge4049 
010003 


pE4S4 









CLR (RB) sPRESET SOURCE DATA 
éLR (RY) PRESET DEST DATA 
aS 
x8 (2+, O(RS)+ + (R3)=000000, (R4)=000000, ¢t=0100 
vs 5.83 
BE 
SUS3: HLT 
81s #100000, 2-<R2) ; (832190000 
ADD #1. a-c(RS) : (R4)=000001 
$8 g(Re)+,a(R5)* : (R3)2190000, (R4)=100001, CC=101! 
Bye 083A : 
BMI 74 
SUB3A: HLT 
NEG CRY) ; (R4)2077777 
BIT 3-(R2),9-:RS) 5 (RZ) 2100000, (R4)207777 
BES 74 
HLT 
CMP 3:R2)+, 9(R5)+ 
ays +4 
HLT 
ccm 3-(R2) 
ADS 3(R2)+, 9-1 RS) 
ave ADDS 
BMI +4 
8DD3: et 
arc J=(R2),9CRS)+  ; (RB2O77777, (R4) 2100000 
BCC BI¢3 
BM] +4 
BIC3: HLT 
COM 3-(RS) + (RY) 2077777 
Mp D(R2)+,Q(RS)+ (RB) S077777, (RYSOP2777 
BEG +4 
HLT 
SCOPE 





;CHECK BINARY BYTE OPS USING ADDRESS MODES 3 & 5. 
BR i$ ;RESERVE SPACE FOR ADDRESSES $ DATA 
- WORD ; :CONTAINS ADDRESS OF SOURCE DATA (EVEN 


BYTE) 
SCONTAINS ADDRESS OF SOURCE DaTA (C00 BYTE) 
gE) 


0 
WORD 0 :CONTAINS ADDRESS OF DEST DATA (EVEN BY 
.WORD «9 s CONTRINS ADDRESS OF O€S7 DATA (OOD BYT 
“WORD «0 CONTAINS SOURCE DAT 
“WORD «60 * KONTAINS DEST Fare 
1S: MOV PC, RO 
CMP -( RO) ,-(RO) :ROZADDRESS OF DEST DATA. 
MOV RO,R3 :R3 . . 


- ~j~ 


OM £MVoe £ 


frm fut 


We LworwEe fo 


Wy 


OOOO OOOMIOINIAVIIOUYIOIOOAGOOOVIOOOON YONOODIOVWOOI0O0H 
0+ b+ + B= 0 = B+ bb * bo 0 bo 0-0 Bo bo Be 0 8h ho hw 


0-2 0-2 0-9 bo be be 


Oooaooooo Ooo 
WWIWWWWGIGI GtLIG) 


ate Meee 1) FAMILY INSTRU 


010305 


010044 


104009 


000402 
008000 
000008 


Oze765 


Oo ONoOoOoONd 
Ut e-e-e—(9e- © 


TST -( 83) 
MOV RO. =(R3) 
INC (R3) 
MOV RO -(R3) 
MOV R3-R 
TST -(RO) 
MOV RO, -(R4) 
INC (R49) 
MOV RO, -(R4) 
SEC 
MOV #177001 acR4)+ 
MOVS JiR4}4 
MOVE $208 Rag 3 a(R3)+ 
MOVE = 9-( RY), B(R3)+ 
BC +4 
HLT 
CMP #600, (RS) 
REQ +4 
HLT 
CMP -(R3),-(R3) 
ise 3(R4)4,9(R3)4 
BI58 aiR¥)+a(R3)¢ 
CMP #100601, (RS) 
BEG +4 
HLT 
BICB 3-4), 9-(R3) 
BICR «= 9-( RY) ,3-( Ra) 
BITS @J(R4)4)g(R2)¢ 
BNE > BITS3 
BITS g-(R4),3(R3)+ 
Zot ae +4 

BITSS: HLT 
CMP 2(R4)*, a-(R3) 
BNE CMP 
CMPB Os S(R4) +, 2-( RB) 
BEQ +4 

CMPB3: HLT 
SCOPE 


; CHECK al OPS |EEG ADDRESS MODE § 


‘SDATA: .WORD @ 
_ BATA: [WORD OO 


MOV OeFACTOR, Re 
Re, RS 


RCs) 
AC?) THIS 
18: BIS SpATAC2), Pract : OTHER Bit PO 


CLR DDATA 

MOV 

asi 

ASL SDATAC2) 
Bcc 
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3RS 
:SU8_2 FROM R3 
3R3 gi TO ADDRESE OF DEST DATA 


‘EVEN BYTE 


i epontes OF SOURCE DATA 
3R 0 POINTS TO ADDRESS OF SOURCE DATA 


900, BYTE 

;SET CARRY 

;SOURCE DATA=100001 
;DEST DATA=000E00 


;ERROR! MOV Base AFFECT C SIT IN PSW 
;CHECK DEST DAT 


;ERROR! INCORRECT RESULT 
;POINT R4Y BACK TO EVEN BYTE 


;DEST DATA=10060! 
CHECK RESULT 


sERROR! INCORRECT DEST & AFTER 8IS3 


; RESERVE TH ae QG AT IONS 
RESERVED FOR SOURCE DATA 
; RESERVED FOR BESTINATION DATA 


:GET RELOCATION Ao AND Use AS AN 
U QIN hale DAT 


Dar INTO_EVERY 
oS1F0N IN THE DEST- 
SINATION ADDRESS (52525) 


1$ 
CMP s52e52e5,DDRTA(S) ;CHECK RESULT 


aon eee 


w 


DoOKC-F_BA 
DOOKCF.PL 


VOMOMOOOVOOOMOOVOOOONIY OH000N O8000000 WOoOoIOoOOKo00000 
+H ££ £££ 
r= (9 NOU 
MWMOMLCOoOfMeM OM cof 


GU] ENCN Cn TUNUTNU ee 0+ 0 -< b-<  o 


MONdNOoOOOYO 
et eT ee er er eat 
tent eet eet et oot 
at aA ae 
Tor eo 


TC 11 FAMILY 


001402 


104490 
908257 


o9 
104000 


013702 


000261 
Cle7be 


INSTRUCTION EXER. 


011310 


001004 


Oll3ie 


Oll3le 


Olisle 


Cli3le 


Oli3l2 


Oll3ie 


011740 


ADDS: HLT 


SUB6: HLT 


1$: ADD 


NE 
SCOPE 


SDATA‘2) ,ODATACS) 
4 
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+4 
sERROR! INCORRECT RESULT 

8-1, SOATAC2) 

ODATA(S) ,SOATAC2) ;SOURCE DATA=125252 


sERROR! BIT INST FAILED 
DDATALS) -ODATAS1 25252 
SCRTACE) , DDATAS) 


sERROR! CMP INST FAILED 
SDATA(2) ,DDATA(S) 
ADDS 
ADDS 
+4 
) -SDATA=S2524 
)} ODA acs} 


8377, RO 3RO=177777 (MOVB “R EXTENDS SIGN) 


SDATA(2) ,ODATA(S) 
SDATA(2) 

SDATAL2) 

SDATA(2) ,ODATA‘S) 
4 

SDATA(2) 

or abit sca 
.? 


SDATA‘2),RO 


CHECK B: °... BYTE OPS USING ADDRESS MODE 6 
AND DDATAB(4) REFERENCE EVEN BYTE OF SOURCE $ el Mi 


INOTE: SDATAB( 2) 
AND SDATABL3), 


AND DDATAB(S) FEFERENCE ODD BYTE OF SOURCE & DEST 
JBFACTOR, R2 GET INDEX VALUE 
R2,R4 


aie 


;Re FOR SOURCE EVEN BYTE INDEX, RY FOR 


RY RS : :DEST ODD BYTE, Ra FOR SOURCE EVEN 


‘AND RS FOR DEST ODD BYTE 


3 
R3,RS 

:SET CARRY 
125252, SDATAR( 2) 





Acg 
wes 


DZOKCF 


O00 8000 28000 200000 2001.00 
oe 


oul 


Ker » ae 1] FAMILY 


112763 


104400 


ioss6 


010033 
000261 
012777 


1o4400 
027777 


INSTRUCTION EXER. 


011740 


011749 


177722 


177706 


177706 
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BR 
SDATAB: .WORD 


DDATAS: 


. WOR 
- WORD 
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# 7125, SDATAB(3) “SOURCE DATA = 952652 
SU AB 2) DOR TAB( 4 

#125125,0 obat Be (4) sDEST DATA = 177777 
SOA ee AR 

+4 

SDATAB(2) ,DDATAB( 4) 


“ERROR MOV,BIS,BIT;BIC DO NOT AFFECT °C’ 
SDATAB(3), ppaTast4) 


SDATAB< 3) , DDATAB‘S) 
"thine DATARS) 


DDATAB‘S} , DDATAB(4) 
+4 


U8? ;RESERVE TWO WORDS 
0 RESERVED FOR SOURCE DATA 
0 :RESERVED FOR OF T DATA 


;CHECK BiNARY WORD OPS USING ADDRESS MODE 7 


eI 
DBIN?: 


UB?: 


MOV?: 


a Ph a a8 I AE I A AS Al RS RR ANE 


mn 


4A he eae, OF —s DATA, AND RR ONTA ADDRESS SF DEST DAT: 


TAINS PYORESS OF SOURCE _ 
0 ;CONTPINS ADDR REE ORTA DEST DATA 


5 CONT iuNS SOURCE 
0 :CONTAINS DEST DATA 

PC, RO 

= ih) =-( a) 

Rael -(R2) 

RO, (Re) 

R 

-(RO).-(R3) 

RN, (R39) 

#199000 QSBIN? ;SOURCE DATA = 100000 

7,Q0BIN7 :DEST DATA - 100000 

+4 

a081N? :DEST DATA = o0c000 
ty 


QSBIN7,9DBIN? ;(R2)=100000, (R3)=000000 





BSeARe Pit BASIC 11 FAMILY 


OQ 33 or 
eed OF 


104430 
047777 
001401 
104400 


057777 
100401 
104400 


Moro Fo EME wor 


aN atiataPaneta st 


roruturu 


132697 
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Bcs CMP? 
avs CMP? 
EM] +4 
CMP?: HLT 
177670 177670 SUB QSBIN7,3DBIN7? ; (R2)=100000, (R3)=100000 
BCC SUB? 
RVC SU87 
BEQ 5U87 
Ei I +4 
SUB7?: HLT 
177650 ASR aSBIN? ; (R2)=140000 
177644 177644 ADD JSBIN7,QDBIN?  :(R2)=140000, (R3)=040000 
BCC ADD? 
Bvc ADD? 
BEQ ADD? 
SPL +4 
ADD?: HLT 
177624 177624 BIC 3SBIN7, 3DBIN7 ; (R2) 2140000, (R3)=000000 
HLT . 
177612 177612 BIS 3SBIN7, 3081N7 ; (R2)=140000, (R3)=140000 
HLT . 
177800 177600 CMP JSBIN7, ADBIN7 
BEQ +4 
HiT 
SCOPE 
SOME MISCELLANEOUS OPERATION INVOLVING THE PC 
:NOTE: NONE OF THESE OPERATIONS SHOULD AFFECT THE PC 
009072 LR 
MOV PC,PC 
CMPB sé PC 
BIT PC’ PC 
ADD *PC 
TSTB PC 
ADC 
CMP (RO) ,PC 
BITB (RO) PC 
990000 ADD pé 
001904 CMP SOEACTOR, PC 
901004 BITE A 8FACTOR; PC 
: THE NEXT TWO INSTRUCTION CAUSE THE PROGRAM TO JUMP TO THE UNRELOCATED 
:CODE AND TO RET RN ON THE FOLL OWING INST (IF THE CODE IS RELOCATED) 
001004 ACTOR, PC NPS TO UNRELOCATED CODE 
001004 ROD Ser ACTOR PC SRETU RNS 
CMP -(SP),PC 
BITB (SP)+.PC 
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000012 
000006 
000002 


001010 
012306 


901004 


177772 
177774 
177774 





NO HERE +2 
;2111111111111 LAST ADDRESS OF cipe TO BE RELOCATED 11111111111 


MOV 
ROD 


MOV 
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+4 ;BRANCH OVER 1$ 









sRELCE, PC ;G0 pd PROGRAM CODE 
RAM RETURNS 









izPeeeeeeser~ Hg ESS TO BE RELOCATED 222222222 
TST (RQ) RO CONTAINS THE ADDRESS OF REL2 
MOV RO, aaFRSTAD ; SAVE 
MOV PC, RG :GET CURRENT PC 
Sua "RO “tSUBTRACT RELOCATION FACTOR 
NOV RO’ JHFACTOR ; SAVE RELOCATION FACTOR 
: CHECK BINARY BYTE OPS USING RODRESS MODE 
BR BINB7 RESERVE SPACE FOR ADDRESSES 8 DATA 
SBINB7: .WORD : CONTAINS ADDRESS OF SOURCE EVEN BYTE 
“WORD 0 :CONTAINS ADDRESS OF SOURCE OCD BYTE 
“WORD OQ :CONTAINS ADDRESS OF DEST EVEN SYTE 
"WORD 9 :CONTAINS ADDRESS OF DEST ODD BYTE 
DBINB7: .WORD O :CONTAINS SOURCE DATA 
“WORD 60 :CONTAINS DEST DATA 
BINB7: MOV PC, RO 
CMP -(RO) ,-(RO) :RO = ADDRESS OF DEST DATA 
MOV RO,-6(RO) :LOAD ADDRES OF DEST EVEN BYTE DATA 
MOV RO’ -4(RO) 


-4fR0) ;LOAD ADDRESS OF DEST ODD BYTE DATA 















SOKCF P11 
012356 ooS740 
12360 010080 17777 
13364 610060 1777 
O1B370 O0S260 17 


2416 O13746 001004 
602 


112773 177777 
132772 900377 
Ole446 001401 
O1e4S0 104400 


012452 157374 Ole3ee 
Oi2e460 105274 Ole33e 


012470 105375 Ole33e 

O1e474 905274 Oles3e 

012500 127375 Ole3ee 

012506 

012510 

012512 147375 012322 

DieSe0 001401 

Ol2eSe2 104400 

Oi2Se4 105073 0123?° 

012530 157473 012332 
106174 Cle33e 
2544 Oee772 177400 

0ieSS4 


012556 900372 Ole322 
CleSte 112775 000200 


yl2e570 147572 O1e332 
012576 106075 Ole33e 


Olet 
O1e604 005772 Ole32e 


ZOKC-F_ BASIC 11 FAMILY INSTRUCTION EXER. 


012332 


012332 


Ole32e 


Ole3ee 


012332 


012322 BIC?: 


ROLB 
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ASBINB7 (2) 


-(RO) :ROSADDRESS OF SOURCE DATA 
R0,-10(R0) LOAD. ADDRESS OF SOURCE EVEN BYTE DATA 
-6{RO) ;LOAD ADDRESS OF SOURCE ODC BYTE DATA 


ze :SET_ INDEX REGISTERS 

#2, R3 : SBINB7 (2); ISBINB7(3) REFERENCE EVEN & 

8-4, R4 :0DD BYTE SOURCE DATA; JD8INB7(4)-a0BINB7(5) 
#-2,R5 ‘REFERENCE DEST EVENS ODD BYTE DATA 


(RO)+ ; PRESET SOURCE DATA 
DATA 
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(RO) ;PRESET DEST 


a#F ACTOR, -(SP) ;GET RELOCATION FACTOR 
(SP) ,Re ;AND ADD TO INDEX VALUES 


#-1, SSBINB7(3 
43/7, JSBINB? ( 


@S8INB7(3) ,aADBINB7(4) 
@0SINB7 64) 


9081NB? (5) ;DEST DATA 
JDBINB7( “DEST DATA 
SSBING?(3), JOBING? (5) 


aspiner(3),2081N@7«) 
JSBINB7(3) 


INB? to ata 
JDBINB7 (4) 


) 7 ORC DATA = 177400 
(2) :CHECK THAT EVEN BYTE WAS NOT AFFECTED 
BY MOVB INSTRUCTION 


;CHECK THAT BIS SET ALL BITS 


CLRB ;SRC DATA = 000000 
;THIS ROUTINE SETS ALL BITS IN THE SOURCE ODD BYTE BY BISING A BIT FROM 
i THE best 3 pl INTO THE i BYTE 


BIS? 
0h (7400, OSBING7(2) ;CHECK RESULT 


;SRC_DATA = 000377 
#200, IDBINB7(5) ;DEST DATA = 100000 


Pt a ae aSBI! 72) 
@DBINB7(S) 


BI 
aSBINB7 (2) 






















177400 
177401 
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012610 001401 BEQ +4 
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piztig o1e70e OC0001 OAERR: MOV = &1,R ;LOAD R2 WITH ODD # 
i 107 MOV PC, R 

012624 O00401 BR sRESERVE SPACE FOR 9 WORD 

Ole626 900000 . WORD ke WILL CONTAIN AN ODD ADDRESS 

Oles30 005723 TST (R3)+ ISTEP R3 TO POINT TO WORD ABOVE 

Ole63e 910313 MOV R3, (R3) 

012634 005213 INC (Ra) :AND MAKE ODD 

012636 912737 012764 oo0004 MOV ERRVEC _:SET ODD ADDRESS & RESERVED INSTRUCTION 
012644 063737 001004 900904 ADD stPASTOR aHERRVEC 

Oi26Se 013737 000004 ondol0 MOV DBERRVEC, JBRESVEC :TO TRAP TO 1% BELOW 


012660 000277 Sct ;SET ALL CC’S 
Qiesbe 160ele2 SUB Re, (R2) 


012664 104400 HLT 
Oleb65 O6022e ADD Re, (R2)+ 
2670 104400 HLT 


01 
Oleb7e O0634e ASL -(R2) 
012674 


74 104400 HLT 
012676 106512 MFPD (2) ;NOTE: MAY BE RESERVED 
12700 104400 HLT 
O12702 170412 CLRF (2) 
912704 104400 HLT 


Cle706 O4%ee0e BIC (R2)+,Re 
Qle7le l64e0e SUB ~(R2) ,Re 


Ole716 155202 BISB d-(Re), Re 
QOle720 104400 HLT 
Ole72ee 105532 ADCB a(R2)+ 


12724 
pis?cs 163302 SUB J(R3)+,R2 
e732 005733 TST a(R3)+ 


O01e734 104400 HLT 

2736 106533 MFPD d(R3)+ 
Oie740 104400 HLT 
Ol2742 170453 CLRD a-(R3) 
012744 104400 HLT 


012746 137702 177775 atts a.+1,Re 


Qie7Se 104400 HL 

012754 105477 177773 NEGB d.-1 
O12760 104400 HLT 

Ol2e76e OOO4OS BR es 


012764 062716 000002 1$: ADD #2, (SP) ;ADJUST RETURN PC 

012770 OSe766 000017 9000002 BIS #17,2(SP) SET CONDITION CODES ON RETURN 
012776 000002 RTI 

013000 12706 000500 2s: MOV #STKPTR, SP ;RESET STACK PTR 

013004 Qle737 00006 900004 MOV HERRVECHS, DHERRVEC 

013012 Ole737 O000le 000010 MOV HRESVEC+E, JHRESVEC 

013020 104000 SCOPE 
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;CHECK JMP INSTRUCTIONS 


013022 010700 MOV PC,RO 
913024 O62700 ooo01e2 ADD #12,RO0 :SET ADDRESS FOR JMP INST 
0130 90277 scc ‘SET CC’S 
13 00110 (RO) 
013034 600402 BR +6 
013036 000250 CLN IMP INST JUMPS HERE \ 
913040 900775 BR | 
013042 103003 Bcc IMP1 
013044 102002 BVC IMP} 
01304 OO1001 BNE IMP1 
013050 100001 BPL + 
013052 104400 JMP1: HLT sERROR! INCORRECT CC’S AFTER JMP 
013054 ooso02 CLR R2 ;SET INDICATOR 
01 010703 MOV PC,R3 
013060 o09401 BR +4 sRESERVE WORD FOR JMP ADDRESS 
013062 000000 - WORD 0 SCONTAINS ADDRESS FOR JMP INST 
013064 905723 TST ( 
013066 010313 MOV R3, (R3) 
913070 o10300 tics MOV 
013072 O62713 on0022 ADD #22, (R3) :(R3) IS IMP ADDRESS 
913076 010300 MOV R3, RO 
013100 000133 IMP a(R3)+ ; JUMP TO ADDRESS CONTAINED IN R3 
013102 oo0402 BR “+6 
913104 005102 COM R2 ;COMPLEMENT INDICATOR 
013106 000775 BR 4 
013110 202 INC R2 :CHECK INDICATOR 
Oi3ll2 001003 BNE IMP3 
013114 005720 TST (RO}+ 
013116 Oe0003 CMP RO,R3 sCHECK AUTO-INC R3 
913120 OO1401 BEQ .+4 
Oi3le2 104400 JMP3: HLT 
013124 ooso02 CLR R2 ;SET INDICATOR 
013126 010704 MOV PC, RY :SET UP JMP REGISTER 
013130 0o10400 MOV R4'RO :SET UP CHECK REGISTER 
013132 900402 BR 1$ 
013134 COM R2 :COMPLEMENT INDICATOR 
013136 000403 BR * ee 
013140 O22424 1S: CMP (RY)+, (R4)+ 
913142 005724 TST (R4)+ sRYSJMP ADDRESS 
913144 000144 IMP -(R4) “USE R4Y AS ADDRESS 
013146 202 23: INC Re :CHECK INDICATOR 
013150 001003 BNE IMP4 
013152 O22020 CMP == (RO) +, (RO) + 
013154 20004 €MP RO. RY :CHECK AUTO-DEC RY 
013156 001401 BEQ +4 
013160 Tpa4DO JMP4: HLT 
01316 010703 MOV PC,R3 
013164 OOO4O1 BR +4 sRESERVE WORD FOR JMP ADDRESS 
O13166 00000 1S: “WORD 60 :CONTAINS JUMP ADDRESS 














DZOKCF.P11 


013170 
013172 
Ol 
013200 


Fororururorororues se 
PT LNOF LVOL 


OONKDONON000N0 
eT ee ee ne ern ee ens 


045723 


O& 
012702 
& . 060502 


DZQKC-F_BASIC 11 FAMILY INSTRUCTION EXER. 


000016 


177770 


013264 
001004 


000000 
001004 


013344 


001004 


013326 


es: 


3$: 
4$: 


IMPS: 


SSRTS 


1$: 


2$: 
3$: 


MACY11 27(732) 


; CHECK Sey INS TRC TE 
Vv 





(R3)+ 


CTOR,RS 
#3$,Re 


RS, Re 

RS, (R2) 

R 

JSR1 
QHEACTOR, RS 
JSRIA 
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;LOAD CHECK REGISTER 


;JUMP TO 2$ VIA 1$ ABOVE 
:CHECK INDICATOR 


;CHECK AUTO-DEC R3 


;COMPLEMENT INDICATOR 


;SET UP JMP_ADDRESS 
;ADD ga cron 


COMPLEMENT INDICATOR - 


3 G0 TO CHECK ROUTINE 


;JMP_TO 1$ ABOVE VIA 7$ 
CONTAINS JMP_ADDRESS 
:CHECK INDICATOR 


‘POR git FACTOR 


;FORM DEST 
:ADD BEL OceTION FACTOR 
PRESET CC'S 


;G0_ TO 3$ VIA Re 
SSHEGK TNBLEATOR 


LO=0 
:CHECK THAT RTS RS RESTORED RS 
sEXIT TO_ SCOPE 


;RETURN FROM SUBROUTINE 
:CHECK THAT JSR DID NOT 


;AFFECT CC’S 


;CLEAR INDICATOR 
sGET aeEL en TED RETURN ADDRESS 
ADD RELOCATION FACTOR (OLD RS) 


CHECK THAT OLD RS WAS PLACED ON THE 
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013366 001765 . BE 2s ;STACK,& THAT NEW RS CONTAINS RETURN PC 
013370 104400 JSR1: sERROR! ABOVE 


He 001004 JSRIA: I QHFACTOR, RY Ge RELOCATION FACTOR 


T IN 
013420 
;SET UP JSR DEFERRED ADRS 


013436 
;(RS)=DEST ADRS 
RESERVE WORD FOR ADDRESS 
: CONTAINS «7 ADRS FOR JSR 
JSR TO 5$ VIA Vv 
CHECK INDICATOR 


3 COMPL “MENT ll 
4 ;RETURY FROM SUBROUTINE 
013424 : GET UNRELOCATED RETURN ADDRESS 
ADD RELOCATION FACTOR (OLD R4) 


sCHECK AUTO-INC RS 
ERROR ABOVE 
001004 : JFACTOR, RY 
M RY, RS 
PC’R3 
2g 
4 
(R3)+, (R3)+ 
R4, -(R3) G0 TO 2g 


JSR4 
013502 ;GET UNRELOCATED jt a SEW yy 
3 ADD RELOCATION FACTOR (OLD R 
Pe CALCULATED RETURN 


(om [ow] on) oe] on) ow] om | oe | oe | oe | oo | oe] 
SES a re 
wnuwi uw 


177770 





DZOK 


022020 


104000 


012737 
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3$: (eo (RO)+ 
(SP) sCHECK THAT RETURN ADDRESS IS ON THE 
: Ra : STACK 


;SET N 
PC 


RT 
JSR6A: SCOPE 

:CHECK IOT TRAP (AND ROLB/ASLB) 

013624 000020 MOV #I0T1, JHIOTVEC 
001004 oo0020 SHPACTOR SHIOTVEC ;ADD RELOCATION FACTOR 


177776 Od00022 d#PSW, J#IOTVEC+2 RETAIN CURRENT PSW ON TRAP 
= :PRESET RO 


;ROTATE RO 
;UNTIL V SETS (RO=200) 
;SHIFT SHOULD SET CARRY 


;RO SHOULD =0 


: ERROR! ROL/ASL FAILED 19 SET CC’S PROPERLY 
po0022 coog20 M #IOTVEC+2 geroTvee *RESTORE IOT TRAP 
goo0e2 3BIOTVEC+ +2 : VECTOR 


;CHECK EMT TRAP SEQUENCE 
000030 MOV OUENTVEC -(SP) : SAVE SCOPE PTR - 
013724 000030 MOV 1. aeEMTVEC :SET EMT TRAP VECTOR 
001094 000030 800 seractor. aWenTvEt. 4 :ADD RELOCATION FACTOR 
177776 000032 cUtPSH, aHENTVECHE” ;RETAIN CURRENT PSW ON TRAP 
. ; TRAP TO EMT1 


EMT1C ;GO0 TO EMTIC 
sERROR! LOG St cc’ WERT trae ON RETURN 


EMT1B 
RO 
‘RO 


RO 
EMT1B 
EMT1B 


;RO= 000200; ce §=1010 


RO ;RO=000200,CC*S=1010 

EMT1B 

EMT1B 

Pe i 

RO :RO=000177,CC’S=0011 

EMT1B 

EMT1B 
;CLEAR *V’ 
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;RO=000200,C¢’S=1011 


i 


;CLEA 
: SHIFT RO UNTIL *V’ CLEARS 


s ERROR! 
tEXIT WITH RO=000377 | 
:RO=000000 


no0030 i. (SP)+,9¥ENTVEC ;RESTORE SCOPE PTR 
05037 909032 CL EMTVEC+2 


; CHECK os INSTRUCTION TRAP SEQUENCE 
HLT=IOT jREDEFINE HLT 
000034 000020 MOV ova he DKIOTVEC 3 IOT (HLT) TRAP VECTOR 
Ol4112 000034 #TRAP I, d&TRAPVEC 
001004 900034 SHFACTOR. Q#TRAPVEC ‘ABD RELOCATION FACTOR 


177776 000036 DePSW, aNTRAPVECH ;RETAIN CURRENT PSW ON TRAP 
PC_RO ;SET CARRY 


000004 


;SET Z BIT 
:TRAP TO TRAPL 
+4 
+4 


fh 
+4 ;N BIT GOT SET ON TRAP 


000004 RO 
(SP) CHECK LOW BYTE OF RETURN PC ON 
: STACK 


ra, 
-(SP),-(SP) 
I (SP) )+, (SP>+ 
oooo02 ;RETURN TO INST FOLLOWING TRAP (18) 
013737 000020 000034 TRAPIC: MOV QKIOTVEC axTRAPVEC ;RESTORE TRAP (HLT) TRAP VECTOR 
: 0 000036 MOV #PRTY7, JRTRAPVECtE 
000020 MOV BioTvetee aaOTvee 
o0od22 CLR Ec+2 


SCOPE 
104400 HLT=TRAP ;RESTORE HLT TO A TRAP INST 
O14166 010702 MOV PC, Re 


014170 Obe702 oponle ADD #12,R2 
614174 012707 001132 MOV #RELOC, PC GO RELOCATE PROGRAM CODE 


014164 
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se ;PROGRAM RETURNS HERE+2 
; 2222222222222 LAST ADDRESS OF CODE TO BE RELOCATED 22222222222 


Or4202 010701 MOV PC,R1 ;SET SCOPE PTR 


; THE BELOW ROUTINE ASCERTAINS WHICH CP & CP Soother’ \ PROGRAM IS RUN- 
ENING ON_AND SETS + INDICATOR IN OPT.CP_ACCORDIN 
: TST ICNT ;CHECK IF PASS 


014204 OOS767 164570 SP CHK: . 
14210 90103 BNE =—- REL :00 NOT EXECLTE ROUTI! NE_JF OT PASS 0 
Si4ele Ole737 oo0002 00006 MOV BATT JeERRVEC+2 ;SET UP ERROR TRAP TO SE 
14220 912750 000003 MOY =s«#3, RO 
514254 300261 SEC 
Sise2s 905737 177772 7ST © QaPIRO sRO=3 IF 11/45 
14232 005800 SBC sO pRO=2 IF 11/40 
514234 900261 $e SEC 
514336 105737 177777 TST8 49 D8PSWe! sRO=1 IF 11/2 
4342 905600 SBC OCéiRR 
314244° 605037 177700 CLR g8177700 sRO=O_IF 11/05 
514250 005300 Ask RO ;SHIFT TNOECRPOR 
14252 019027 wp, MOV, RO,(FC)+ sSET CP INDIL ‘TO 
Ci4254 990000 OPT.CP- .WORD f° ‘CONTAINS OP. oN & CP INDICATORS 

sEVEN BY, O=11/05, 2211/20, 4211/40 62117 #5 

:OD0 SYTE: GQ0=MEM'NGNT LOO=EIS, 40211745 FLOATING Pont 
14258 005027 990008 38: eLR F eaRVEC+2 RESTORE ERROR TRAP TS HALT SN TR 
14262 905037 0000:e. CLR *sFESVEC+2 
14265 126727 177762 co0004 CMPB Or. CP, 84 BRANCH IF 11/05 OR 11/20 
514274 902404 BLT L3 
bise76 OO9767 184730 JSR PC, PRINT sPRINT MESSAGE BEGINING AT FOLLOWING ADRS 
514302 016631 ILLTEST 
014304 990000 L 

i 3399333332923 FIRST ADORESS TO SE RELOCATED 333993993 
914308 910700 RELS: = MOV PC ARO C 
514310 905740 TST (RO) :RO CONTAINS THE ADDRESS OF REL3 
O143ie 610037 001010 MOV «RO, aFRSTAD :SAVE 
614316 910700 MOV PC. RO :GET CURRENT © 
514320 162700 014320 SUE 8, RO ;SUBTRACT RE CATION FACTOR 
614324 010037 001004 MOV BQ. BAFACTOR SAVE RELOCA. ION FACTOR 
14330 910701 MOV = PC :SET NEW SCOPE PTR 
CHECK STACK OVERFLOU 

914332 913767 177776 000206 OVFLW: MOY = asPSW,7S SAVE STATUS IN 7$ BELOU 
614340 005037 177776 CLR = wPSW ;SET KERNEL MO 
14344 010746 MOV = PC, = (SP) ; PUSH RURRENT PE ONTO STACK 
14346 O62716 000136 AOD «swab. (SP) ;FORM BOORESS OF 28 GELOK 
014352 011637 000004 MOV (SP), QaERRVEC — ;SET ERROR VECTOR 
014356 012727 O00340 o00006 MOV #340, TRERRVES+2 SET BRIDRITY Y LEVEL 7 ON TRAP 
014364 062716 900074 ROD #418+25, (SP). :FORM ADDRESS OF 41S BELO 
014370 012637 O00020 MOY (SP)+,9RIOTVEC SET IOT TRAP VECTOR TO-S1S 
014374 O1e74— 000340 MOV #340, = (SP) 
Ci4400 O11637 o000ee -MOV (SP) aaTOTVECS? ; SET PRIORITY LEVEL 7 ON QT TRAP 
Cis404 910746 MOV PC, - SP) sPUSH CURRENT PC ONT 0. THE 5 
Sissds C€2712 oO0000e ROD #6) (SP) fAOD OFFSE™ TO INST FOLLOWING RT! 


ne ee es ree ee ee 


ee — = . ne me ee a ee 
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ois4i2 og0002 RIT :SET PRIORITY LEVEL 7,CLEAR ‘T’ BIT 
AND EXECUTE FOLLOWING INST NEXT 
gyi i 29 900376 Moy ah R3 
i4480 68153 MOV iR3) :LOAD 376 INTO ADDRESS 376 
914822 910306 MOV :SET STACK PTR AT BOUNDARY 




























THE BELOW INSTRUCTIONS SHOULD NOT CAUSE AN OVERFLOW TRAP 
14424 o0s71$ TST (§P) *BECAUSE TST IS A NON MODIFYING INST 
014426 21866 177776 CMP (SP), -2(SP) :56 tS COMPARE 
w4y32 122737 Ooodde o14es4 €MPB Osage, DROPT.CP :CHECK IF 11/20 OR 11/05 
d14440 002411 BLT 1e$ : BRANCH 1F 11746 OR 11745 
O14442 301404 © SEQ 11$ :BRANCH TF 
014444 O12767 oco0014 o00144 MOV #14,S51$ + RNANGE CHECK “Foro IN S1$ IF 11/05 
614452 000407 3 OR 
O14454 612767 000034 O00134 118: MOV #34,51$ sCHANGE CHECK WORD IN S1$ IF 11/20 
514462 900493 38 10$ 
5i44es 012656 128: MOV (SP )+,9-(SP) :BECAUSE °F ADDRESS MCE 5 
5is4ss 054678 c00000 Is mts "3(SP) ‘BECAUSE UF ADDRESS MDE 7 
014472 0506 000004 108: CLR 4 (SP) :SECAUSE DEST ROORESS. 1S > 
514476 957636 900900 BIS Q(5P),a(SP)+  :BECAUSE OF ADDRESS M 
o14502 oOo4d6 aR 33 :BRANCH OVER NON PERNT MODE TESTS 


sERROR SERVICE tog hg 


014504 912600 2s: W “89 s SAVE PC OF INSTRUCTION THAT TRAPPED 

5i460e 012602 V ‘ep, " AVE PSid 

8345190 1270s ooosoc wv seretee sp {Set STACK PTR 

614514 104400 HLT :ERROR! AN INSTRUC TION THAT WAS NOT 
:SUPPESED TO TRAP TRAPPED 


380 ea PC, Re CONTAINS FSW 


BR &S XIT TEST 
THE BELOW INSTRUCTIONS WILL cauke A STACK OVERFLOW 
‘STACK PTR IS AT 376 

9:4520 062737 oo00es occo04 3s: ADD £45- 33, QeERRVEC SET ERROR VECTOR TO 4S 
5i4ssc6 010306 MOV R3,S° :SET STACK PTR AT 376 


014530 Ole702 000001 Moy aL Re 
Oi4534 905000 cLR RO 
014536 005016 CLR (SP) sSE7S B17 2 IN RO. 
Oi4540 006302 ASL sSUUET INDICATOR BIT 
Oi4s42 105226 INCE (SPI¢ ets Bil i IN RO 
14544 006302 ASL 2 

| O14546 60746 ADD = PC, - (SP) sSETS BIT 2 IN RO 
O14550 906202 as. sé 
0:4 o004 107 :SETS SIT 3 IN RO 
Si4554 06302 ASL sR 
O14ss_ OO4767 o00014 TSR PC, 40S sSETS BIT 4 IN RO 
014562 006302 RSL tiéRD :NOTE: 11/05 WITHOUT ECO s KO1LA-00008 

:D0ES NOT SET SIT 4. 

O14564 OSOGER 177776 BIS SP, -2(SP) ISETS BIT 5 IN RO 
014570 800407 BR 5$ 


sPROGRAM WILL TRAP HERE ON OVERFLOW TRAP 

o14s72 os0200 dg; BIS R2,RO SET APPROPRIATE BIT IN RO 
514574 90d00e2 RTT :RETURN FROM TRAP 

mi 


4576 000207 40$: RTS PC 


a nr ee ee 


co 





012737 
003002 


BIER 


194400 


Ole70s 
Ole746 


104000 


cet 


000761 


000022 


000500 


024254 
000034 


000600 


000006 


000509 
ooccos 


ccocde 
0150e4 


000936 
000040 


009110 
015002 
001004 
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000020 41S: ny BIOTVEC+2, JRIOTVEC 


oo0d04 


001114 


014254 


;CHECK THAT ABOVE IEC LLONS DID TRAP 


és: MOV SSTKPTR, SP :SET STACK PTR 
50$: cmp (PC)+,RO EACH INSTRUCTION SET A BIT IN RO 
518: .WORD C :CONTRING CH CHECK WORD 
BEQ 6S 30 OR 45,14 IF 0S,34 IF 20 
TSTB © aBOPT.CP :CHECK IF 
BNE Seg : BRANCH Fi NOT AN 11/05 
CMe #34, RO USE ECO KD] 1a-D000e CHET WORD 
3EQ 3 
S2s: HLT 
-EXIT ROUTINE 
&$: MOV 8KPTR, SP :SET KERNEL STACK PTR 
MOV —s- (PC) +" =( SP? ‘PUSH OLD PSW ONTO STACK 
7S: .WORD «6 :CONTAINS SAVED PSw 
MOV PC, -(SP) :PUSH CURRENT PC ONTO STACK 
B00 #6! (SP) :ADD OFFSET 
MOV aSTKPTR, SP -SET STACK PTR 
HOV SERAVECHE. DRERRVEC 


-CHECK THAT ALL RESERVED INSTRUCTIONS TRAP (TO LOCATION 10) 
RESTRP: NOV re a PED sLIMIT TO Tug ITERATIONS 


MO :SET SCOPE P 
MOV :GET ADDRESS OR RESERVED INSTRUCTION TABLE 
ADD SEPACTOR. Re 
CMPR sa, DROPT:CP s ADJUST TABLE ADDRESS IF 11/20, 11/05 
BLE 11$ :S$=11/45, 11/40 TABLE, 6$=1174s 
ADD 428-55 711/20 T 
11$: BITS #40, 3b ARe CP+1 CHECK IF Ths FLOATING POINT IS AVAIL 
BEQ +6" “BRANCH IF NOT AVAILABLE 
CLR 508 :SET TABLE TERM MINA ATOR AT GROUP 7? 
MOV #43, QeRESVEC | :SET RESERVED INSTRUCTION TRAP 
ADD JRFACTOR, aBRESVEC 
18: MOV (R2)+,R3 GET FIRST RESERVED INSTRUCTION 
BEQ 7§ :O0 TERMINATES THE TABLE 
MOV (R2)+.R4 :GET LAST RESERVED INSTRUCTION IN GROUP 
23: V R3, (Pe) s EXECUTE RESERVED INSTRUCTION 
33: WORD 9 : CONTAINS RESERVED INSTRUCTION 
HLT SERROR! INSTRUCTIO 
HLT :(2$) ASOVE FAILED TO. CAUSE A 
HLT a :RESERVED INSTRUCTION TRAP 
43: MOV #41$, (SP) sADJUST R77 URN PC 
ADD aeFASTOR, (SP) 370 RETURN io 41$ 
RTI sRETUR NT 
41$: CMP R3,R4 HAS GROUP oF RESERVED INSTRUCTIONS 
BEO 18 :BEEN EXECUTED 
INC 3 s INCRENENT THIS S RESERVED INSTRUCTION 


BR + } TQ NEXT ONE AND 
: TABLE OF 11/40,11/4S RESERVED INSTRUCTIONS (OQ TERMINATES THE TABLE) 
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DZK 


015024 900007 S$: ? ;GROUP 1 
0150 itd Ee 77 ‘he 
01503 0210 210 ;GROUP 2 
pi etse eat 55 Why 
150 fe 00 sGROUP 3 
015036 097777 ile wh 
015040 075040 75040 ;GROUP 4 
giecie Orer O77? Scents 
15044 106400 1 6400 ;GROUP S 
015046 106477 106477 ‘Wie 
915050 108700 106700 ;GROUP & 
018052 107777 10777 : sg 
018054 178000 SOs: 170090 3 GROUP 7 FLOATING POINT 
OiS0S& 17777 177777 INSTRUCTIONS 
015069 600000 0 9 TERMINATES THE TABLE 







STABLE OF 11/05, 11/20 RESERVED INSTRUCTIONS (0 TERMINATES THE TASLE) 
91502 990006 bs: = ;GROUP 1 
015064 000077 ? ‘jill 
015056 000210 210 :GROUP 2 
g15970 0909237 237 .. * 
QO1507= 906400 6400 :GROUP 3 
15074 007777 7777 ; * 
015076 070000 7009 ;GROUP 4 
015199 977777 77777 ; 
Bidid2 106400 106400 :GROUP 5 
Bibid8 197777 10777 cs 
615106 170000 170000 ;GROUP 6 
015110 177777 =, erat 
Bigii= 00000 . 0 TERMINATES THE 
O151149 Oie73? o00012 o00010 7$: MOV  sRESVEC+2, auresvie RESTORE RESERVED TRAP TO HALT AT 12 
O:Si22 104900 SCOPE 
CHECK THAT ALL BITS IN THE PROCESSER STATUS WORD (PSH) CAN SE SET AND 
ay ° 5 
015124 013767 177776 o00152 PSICHK: MOV J9PSH, 38 ;SAVE_ STATUS 
315i32 005037 177776 CLR = aPSW CLEAR NODE’ BITS IN PSH 
O15136 05046 CLR = = (SP) SROUTINE TO CLEAR 
15140 O10746 MOV PC =(SP) STATUS WORD (PSH) 
Si5i42 062716 co0006 ADD sw (SP) 
O1Si4€ 000002 RTI ;CLEAR PSW 8 EXECUTE FOLLOWING INST 
15150 013746 00016 NOV QSTBITVEC#2, ~(SP) 
15154 012704 177776 Moy = PSH, ;LOAD ADDRESS OF PSW INTO RY 
B15i60 COd250 cLN 
Bi5ise 905714 TST = (RY ;CHECK THAT PSW WAS CLEARED 
15164 001401 BEQ #4 
| Oi5i66 104400 HLT ERROR! PS FAILED TO CLEAR 
015170 113700 o14254 MOVE  Q8OPT.CP,RO GET CP TYPE 
015174 016000 016570 MOV = PSWBIT(O},RO © ;GET BIT MASK FOR TEST RO=THC ~ BITS IN 
THE PSW WHICH CAN BE SET/CLE. 0. 
915200 005737 o14e2s4 TsT — Q8OPT.CP : CHECK IF MEM MGMT IS AVAILABLE 
015204 100002 BPL :BRANCH IF NOT AVAILABLE 
Bizsoe 052700 170000 BIS _ #170000,RO ;SET BIT 91912 IF NEN NanT 
Oigéi2 ole702 0000! 10: MOV = 81, Re ;Re = TEST 
O15216 030200 1$: BIT  Re,RO ;CHECK IF BIT "oaN SE SET/CLEARED 











015280 


260 
015262 
4 


02 
530% 
0& 


ONdIOOHoHND OONVOIOOOVINVO0000 
0+ = 0 = hs bo bo bs bo bo bs 0 a bo pe pe 
uw iv) uy 
ww 
~~ 
Oo 





o IWOOOOAN 





CIUNUNUUino 
££ £WG) 
—-OOoONNY 
ofonr 





wee eS 


0009 
104909 


013704 
O1LO446 
112716 
010746 
062716 
000002 


pi pees 
00 


104400 
010306 


Ce 
020306 
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000016 
000020 


O0c092 000015 


0000'S - 
ooccos 
177776 


000360 
000006 


000377 


177777 
000377 





2$: 


as: 


4$: 


C 


1$: 


es: 


i CHECK BYTE OPERATIONS USING THE STACK 
SPCHK: MOV SP,RO SAVE STACK PTR 
MOV RO.R 
CLR = =(R3) ; 
MOVB = #-1, - (SP) :(SP) = 377 
CHP $a7>, (RB) ;CHECK THAT ONLY EVE.. BYTE WAS AFFECTED 





nee: H pe ALL 


MOV 
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23 
DeTBITVECH2 
Re #20 sCHECK IF TEST WILL SET 'T’ BIT 
e an dk  TVEC+2;SET RTI INTO RETURN 

; CLEAR 
Ne: ‘SET Re INTO PSW 
‘CHECK THAT BIT WAS SET IN PSW 






ws 
sERROR! BIT IN Re FAILED TO SET IN PSW 
CLEAR 2 
R2 (RY) :CLEAR BIT IN PSW 
{RA),R :GET PSW RESULT 
‘BRANCH IF BIC ABOVE CLEARED BIT IN PSi 
‘ERROR! BIT IN Re FAILED TO CLEAR IN PSW 
Re :SHIFT TEST BIT 
1$. ; BRANCH fants BITS NOT TESTED 
(SP}¢, aeTBITVEC + RESTORE T BIT RETURN 
(PC)+; = ;PUSH » nite STATUS ON STACK 
0 :CON TAINS ORIGINA L PSw 
PC, -(SP) :SET RETURN PC 
#6; (SP) 
; RETURN 
JePSW, RY sSAVE PSW IN R4 
RY -(SP) PUSH RY ONTO ST ack 
#300, (SP) :SET PRIORITY LEVEL & AND 
PC, - “(SP :CLEAR ° IT AND EXECUTE 
#6) (SP) iNET RUCTION FOLLOWING RTI 











BITS IN THE CURRENT STACK PTR CAN SE SET/CLEARED 
SP,R3 ;SAVE STACK PTR 






#377, SP ;SET STACK P oj 

a5 sea D, air THROUGH ALL BIT 
35 ;SHOULD INCREMENT SP TO 0 

SP, Re ;SAVE ERROR STACK PTR 

R3, SP SET Sy nck PTR FOR TRAP 





R3, SP ;RESTORE ORIGINAL STACK PTR 







1$ 
R3, SP ;CHECK AUTO-DEC 
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015414 oo1401 BEQ +4 
O1s416 104400 1$: HLT 
Q1S420 105226 INCB = (SP) + 
134 2 p68 / 63 TST (R3)+ “CHECK RESULT 

15424 901002 BNE 2$ 
915426 o20006 CMP RO, SP sCHECK AUTO-INC 
015430 001401 BEQ +4 
015432 104400 23 HLT 
015434 005143 COM (R3) ;(R3)=177777 
015438 144613 SICB. 4 -(SP), (R3) 
015440 O22713 177400 CMP #177400, (3) ;CHECK RESULT 
ois444 091002 BNE 3$ 
515446 020603 CMP SP,R3 
615450 001401 BEQ .+4 
o154S2 104400 3: HLT 
O1s4S+ 132627 000377 BITB (SP)+,#377 
015460 991002 BNE ug 
015462 20600 CMP SP.RO 
015465 o01401 BEQ +4 
O1s466 104400 4$: HLT 
O1S4¥70 012746 oc0001 MOV = #1, - (SP) 
9i5474 062706 op0002 ADD Fs 
015500 Oie702 177401 MOV #177401, Re 
615504 120e4€ CMPB =—s- R2,, -( SP} 
915506 o01004 BNE cs 
015510 122602 CMPB) sé (SP) +, R2 
015512 001002 BNE cs 
015514 9200 CMP RO, SP 
OisSig oO0140! : BEQ +4 
015520 104400 : cs: HLT | 
015522 O10446 MOV R4,-(SP) ;RESTORE ORIGINAL PSW TO STACK 
915524 O10746 MOV PC, -(SP) 
015526 O62716 oo0006 ADD #6, (SP) 
O15532 ooo00e RTI 
015534 104000 — SCOPE 

“CHECK THAT °C’ BIT SETS/CLEARS PROPERL 

015538 012727 177776 eBIT: MOV #177776,(PC)+  ;LOAD CONSTANT 
015542 oo0090 1$: . WORD : 
015544 010700 MOV PC, RO :GET CURRENT PC 
915546 162700 oooco4 SUB #4°RO ;POINT RO TO 1$ ABOVE 
o1sss2 o0s520 2: ADC (RO)+ :ADD 'C’ BIT TO 1$ ABOVE 
615554 006340 ASL -(RO) SH HIFT 1 
O15556 102375 BYC 2$ “UNTIL *V’ BIT SETS 
O1SS60Q 022767 077775 177754 CMP #077776, 1$ :CHECK RESULT 

015566 001401 BEQ +4 

015570 104400 HLT ERROR! INCORRECT RESULT IN 1$ ABOVE 


;ROSADDRESS OF DAT 


s CHECK THAT CONDITION CODES ARE SET PROPERLY WHEN A NUMBER (CURRENT PC) 
iAND T NUMBER +1 ARE COMPARED, AND VICE VERSA. 
015572 010700 EMP a PC,RO GET CURRENT PC 
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015574 9190002 MOV RO,Re :SAVE IN R2 
015576 o0S202 INC R2 ‘MAKE Re = RO+1 
015600 000877 Sc¢ 
615602 600251 +CLC!CLN :CLEAR C & N BITS 
Hi5€04 Od20002 CMP RO,Re :COMPARE # WITH #+1 
015606 103003 BCC 1$ :CARRY B87. SHOULD SET 
915610 102402 BVS 1$ :¥ BIT SHOULD CLEAR 
015612 001401 BEQ 1$ 52 BIT SHOULD CL 
015614 100401 BMI +4 N BIT SHOULD SET 
O156ie 104400 13: HLT ERROR! COMPARE # WITH #+1 FAILED TO 
SET CONDITION CODES IN PSW CORRECTLY 
015620 000277 scc :SET CONDITION CODES IN PSH 
6i5622 120200 CMPB =s-R2, RO ‘COMPARE #+1 WITH 
015624 103403 BCS 25 :€ BIT ESULD CLEAR 
O156536 102402 BVS 23 :¥ BIT SHOULD CLEAR 
015630 601401 BEQ 2g :2 BIT SHOULD CLEAR 
015632 100001 BPL +4 ?N BIT SHOLD CLEAR 
015634 104400 2S: HLT ERROR! COMPARE &+1 WITH # FAILED TO SET 
:CONDITION CODES IN PSW CORRECTLY 
24 NOr ‘0) INSTRUCTIONS FOLLOW. THESE NOPS MA 
:BE CH 0 TEST CODE IF THE NEED ARISES. THE TEST CODE SHOULD 
: BE BOSTON INDEPENDENT AND SHOULD RUN WHEN RELOCATED BY THE PROGRAM. 
915636 900240 NOP 
5i5640 00240 NOP 
o15642 oo0e40 NOP 
615644 ooge4e NOP 
015646 40 NOP 
615650 do0e40 NOP 
S652 o00c40 NOP 
915654 o00e4 NOP 
E656 000240 NOP 
S660 O00c4 NOP 
S662 o00e40 NOP 
815664 o00240 NOP 
5566 900240 NOP 
015670 40 NOP 
015672 o00240 NOP 
5674 0024 NOP 
615676 00240. NOP 
615700 900240 NOP 
515702 990240 NOP 
015704 000240 NOP 
815706 code40 NOP 
915710 900240 NOP 
915712 000249 NOP 
015714 op0240 NOP 
015716 104000 SCOPE 
015720 010702 MOV PC,R2 
015722 O62702 g90012 ADD #12, Re 
015726 012707 00113 MOV HEL OC, PC ;0 RELOCATE PROGRAM CODE 
015732 o0d240 RAM RETURNS 


OP HERE +2 
; 3333333333333 LAST ADDRESS OF cbbE 5 BE RELOCATED 33333333333 
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;CHECK TTY INTERRUPT. 
005037 001004: TTYCHK: CLR JRFACTOR 


M PC,R1 
000100 177564 #100, aeTPS ;CHECK IF TTY IS READY 


016026 oo0064 . 438 DSTPVEC ;SET TTY INTERRUPT VECTOR 
acO0 SUTEVECHS : ER RI ON 
177566 : Nal :TYPE FIRST CHARACTER OF MESSAGE 


ais ;SET IE BIT IN TTY CSR REG 
KW11 :WAIT FOR FIRST INTERRUPT 


aaTPS ;CLEAR IE BIT 


QNIOOOVOOVVIOHO0000 
o CoOouuwiul ul 


ooo0le o000e4 : oo ;BRANCH IF CHAR IS NOT <LF> 
163170 SR PC, .PRINT ;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 


BR 5$ 
OOCO0& 177566 4S: aMSG, d#TPB ; TYPE CHARACTER 
es :BRANCH IF TERMINATOR 
S$: INC (PC)+ :SET_MSG TO NEXT CHAR ADDRESS 
MSG: , 0 s CONTAINS ADDRESS OF CHAR TO BE TYPED 


0000 
020015 000015 NULLS: Peel2 €15><40> «15> 


:ROUTINE TO TURN ON KWL1-L LINE CLOCK IF AVAILABLE 
012737 o00002 OO0006 KW1l: MOV #RTI, JHERRVEC+O :SET UP DIRECT RTI ON TRAP 
000100 M #4$, JHLKVEC :LOAD INTERRUPT VECTOR 
000102 - 9300, HLKYECH2 sgt PRIORITY LEVEL & ON INT. 
V T TIME QUT I NOICA TOR 
177546 #100, 2&LKS :SET INTERRUPT ENASLE 
$ SKIP BREORTTY ARBITRATION TEST 
‘BELOW IF NO KWLI-L 


; ROUTINE TO CHECK PRIORITY ARBITRATION LOGIC 
s THE BELOW TES. WILL perett INTERRUPTS ON LEVEL & AND ABOVE CLOSING 
T THE LINE CLOCK) AND THEN SET UP THE TTY TO INTERRUPT. NEXT THE 
PRIORITY LEVEL WILL BE SET TO O ALLOWING INTERRUPTS IN WHICH CASE 
;THE LINE CLOCK (AT LEVEL 6) SHOULD INTERRUPT BEFORE THE TTY (AT LEVEL 4}. 


000020 177776 #20, 2ePSW CHECK IF *T’ BIT IS SET 
BNE $ DO NOT DO TEST IF SET 
000300 177776 #300 :SET PRIORITY LEVEL = 6 
000064 arpiee thes :SAVE TTY INTERRUPT VECTOR 
: f 0 :CONTAINS CURRENT TTY VECTOR 
177564 aRTPS CH ECK IF READY 
74 WALT FOR TTY TO BECOME READY 
016204 oo0064 #23, JUTPVEC “SET NEW VECT 
S227 6S: INC (PCS+ *STALL WAITING FOR LINE CLOCK 
gocooo : 0 :TO BE READY 


DQOOKKSR0000 
PEE Loe Le 








DZOKCF. 


Seen 8 ef ii FAMILY 


nasa 


188 


a0 


B76 
005267 
000002 


INSTRUCTION EXER. 


016210 
177776 


177732 


ie 
162536 


000006 


177776 
016264 
000609 
090100 
177570 
162466 


016574 


000060 
162366 


016564 


000100 


000064 
000100 


177564 


016060 
177564 
000024 
o00026 


162400 


001122 


001122 
000016 


es: 
; BEFORE 


3$: 


4$: 


SS: 
END: 


END1: 


1$: 


es: 


3$: 


RTI: 
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BNE 6 

Mov #33, JULKVEC sSET LI ck VECTOR 

CLRB 39s aPSW ;SET PR. 
’ 


‘ERROR! hi er Yel INTERRUPTED 
THe LINE CLOCK OR BOTH FAILED TO Biel, 
MOV 15, J&TPVEC sRES TOR 
MOV #4$, DHLKVEC LI NE Lo VECTOR 
CLRB 339s a#P SW RESTOR PRISRITY L Lo 
MOV #53, (SP) SET RETURN oR aResee 1 S$ BELOW 
INC TICKS s INCREMENT TICK COUNT 
RTI ? RETURN 
CLR JHERRVEC+2 RESTORE ERROR TRAP TO HALT AT & 
NOP 
CLR aaPSW ; CLEAR MODE BITS IN PSW 
CLR -(SP) _ $CLEAR PSW 
MOV #.+6,-(SP) 
RTI :G0_TO NEXT INST WITH PSW=0 
MOV 8KPTR, SP :SET KERNEL STACK PTR, (NOT APPLICABLE 
:FOR 11/20 1/05 cP’ 
BIT #100, daTPS :CHECK IF buTPLS SEVECE IS BUSY 
BNE 6 :TS BVA AILABLE 
TSTB = KSWR DELETE END OF PASS TYPE OUT IF SW7=0 
BPL S ; BRANCH IF SW? IS DOWN 


UN 
G0 TO FORMAT ROUTINE 
:AND MOVE THEM INTO MESSAGE 


MOV aPAschT deMSG sees MESSAGE ADRS TO TELETYPE SERVICE 


#TPS 33 
MOV SPDHAS SuPPVEC ;ENABLE POWER FAIL TRAP 
MOV fen ,O8PFVEC+2 ;PRIORITY 7 ON POWER FAIL 


MOVB OPT ;GET CP_TYPE 

CMP PaSTABtRD), ICNT ;CHECK IF END OF TEST 
BNE es BRANCH IF NOT AT END 
JMP DONE 

MOV ICNT,Re :GET PASS COUNT 


BIC CPPASS(0) , Re ;LIMIT PASS COUNT TO 0-6 
CLR d#16 :CLEAR T BIT TRAP ADDRESS 
MOV #40, daSCOPEF+2 ;SET ITERATION COUNT = 40 


4 
MOV > PSUTAB<2) (SP) :PUSH NEXT PASS PSW ON STACK 
BIT #20, (SP) “WILL *T’ BIT BE SET ON NEXT PASS? 
BEQ 3$ *BRANCH IF NOT 
MOV #2, 8SCOPEF+2  ;SET ITERATION COUNT = 2 FOR 'T BIT 
MOY RTt1, a#lb :SET *T’ BIT TRAP TO RETURN VIA 16 
MOV #START2,-(SP)  :RESART PROGRAM AT 
RTI RESTART PROGRAM AT STA Rife WITH NEW PSW 


; (FROM TABLE BELOW) NOTE: THE R 
;CHANGED TO AN RTT IF NOT AN 11’ ‘hs! 11/20 
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;ROUTINE TO SET UP MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 28K 
000200 177564 DONE: EF Aen Seth ;WAIT FOR TTY OUTPUT TO FINISH 
177564 s ;WAIT FOR LAST CHARACTER TC BE PRINTED 


: x 0 
177772 : ;DELAY WAITING FOR TELETYPE TO FINISH 
: TYPING CHARACTER BEFORE ISSUING RESET 


177570 


162500 JSR PC, .PRINT ;PRINT MESSAGE BEGINING AT FOLLOWING ADRS 


o0004e2 3$: MOV te Ne ;CHECK DDP/ACT11 MONITOR HOOK 


R 
aeeemmel.” PC, (Re) ;GO TO DOP/ACT11 MONITOR VIA Ye 


. NOP 
000127 oge2224 DONEL: JMP DHSTARTS ;RESTART PROGRAM 
; THE eeslve Passes. ne THE *NEW’ PSW SET BY THE PROGRAM ON 


;NOTE _T OW TABLE MAY BE MODIFIED TO CAUSE THE PROGRAM TO RUN 
UNDER USER Ay PARAMETERS BY PATCHING i, hig DESIRED PASS PARAMETER 
FOR EXAMPLE TO CAUSE THE PROGRAM TO RUN me T SETTING THE ‘T’ BIT 
IN ALL PASSES PATCH OUT THE *T’ BIT IN THE TA BLE 
016560 000000 SWTAB: O00000 ;ALL 11 FAMILY CP’S 
OiéSbe 000020 000020 


;THE BELOW TABLE IS. THE "BIT MASK’ USED TO DETERMINE THE INDEX VALUE 
: NEEDED 19 i THE ° PSW. 

O16S84 177774 &ppASS: 177 11/05 

O16566 177774 1 :11720 


: THE 1BELOH TABLE REPRESENTS THOSE BITS IN THE CP WHICH CAN BE SET/CLEARED 
016579 000377 PSwB 00377 511/05 
016572 000377 * Ona99 11720 


-THE BELOW TABLE CONTAINS THE # OF PASSES REQUIRED TO COMPLETE TEST 
ooo00e2 PASTAB: .WORD 2 11/05 
o00002 -WORD 2 11720 
: MESSAGES 
005015 047514 020127 MSG1: .ASCIZ <15><12>*’LOW LIMIT?’ 
O44515 037524 : 


043511 020110 MSGe: .ASCIZ ‘HIGH LIMIT?’ 
044515 037524 


posole ay ILLTEST: .ASCIZ <15><12@>*THIS TEST INVALID FOR 11/40-11/4S PLEASE RUN DCQKC’<15>< 12> 
O1s644 O44440 053116 046101 








000001 
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051117 
0 


008503 


050532 
O47 117 
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«15><12>* DZQKC DONE’ <207> 
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DZOKCF.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
ADcB2 —Q04SbY 1446 «14488 
ADCBS 005374 167516778 
ADCBE + 008062 1828 1829 
aDcB7 006710 2035 2037 2038 2040s 
254 a: a. 
ADCi 003400 1080 1081 10 1 
ADC? 004374 1378 13808 
cS S202 1602 1603 1605# 
ADCE 005672 1773 «1774 =~ 17768 
ADC o4 2000 2001 20038 
ADDO ©: 007376 2201 2202 03 2205# 
ADDI 07602 2273 «= e747 be 
010026 2356 © 2.357 23608 
ADDIB 910044 2365 2366 23688 
De  o10432 2502 2505¢ 
ADDS 011105 2661 26638 
ADDS 011450 2758 492759 7618 
07 oleile 2870 2871 28748 
9 o03742 e120 1213,‘ 1e 158 
ASLBIA OO04166 1299 1300 = 13028 
ASLB3 005364 1669 1670 = 1b7ee 
ASLBY 004676 1483 1484 14878 
1820 1821 18244 
ASL87 097006 2068 2069 20718 
ASLO =| OOPE4G 901 902 903 904 9068 
ASL] 903554 11931144 4S 11478 
ASL3 005116 1671 1572 15748 
ASLY = o44eE 144101411 12 14148 
ASL& = O05842 1761 1762 17648 
ASL? 06432 1947 1950% 
004036 1248 12508 
ASRBIA O04052 1254 12578 
004634 1468 1469 «14718 
ASRB2A 04652 1475 «147714738 
24 1650 1651 = 16538 
FSRBG a2 1860 1861 18638 
ASRE7 = 007024 2075 «2076 «= 20788 
ASRO = 002674 95 916 917 9198 
ASRI © Oos442 1100 1101 91402 = 11048 
AS 004410 1384 «1385 = 13874 
ASR3 005102 - 1565 15678 
ASRe © 005524 1723 1724 = 17268 
ASR?  OOB4EE 1961 1962 19648 
BE 001747 667 _ 6908 
BICB1 0102 e426 24298 
BICBIA O10e4e 2437 = B44Oe 
BICO 007310 e172 2173, 217421768 
BIC 007724 2319 2320 23228 
BICe 010522 2531 e532 e533 2535e 
BIC3 011120 2666 26688 
BIC? 012570 30008 3002 
BINB7 012336 2935 = 2343 . 
BIN 010400 e469 «e472 e475) 2478 = 2481 «= e484 = 487 aU 
BISB1 010206 _ pel = uae 
BISO 007266 2163 = 164 21668 
BISOA 007344 2190 21928 


mae ee ee = ee 
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CF.Pil CROSS REFERENCE TABLE -- USER SYMBOLS 


2314 23168 
esses 


24188 
2607% 
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